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ABSTRACT 


The  use  of  compilers  to  go  from  high  level  languages  to  microprograms 
is  not  commonplace.  A few  experimental  compilers  have  Been  described  but 
no  support  of  this  concept  is  provided  by  manufacturers  of  user  micropro- 
grammable  computers.  In  this  feasibility  study  two  existing  compilers 
accepting  dialects  of  PL/l  were  considered  for  generating  microprograms  for 
computers  with  a horizontally  encoded  control  word  format.  One  of  the 
compilers  which  accepts  the  PLM  language  as  input  and  produces  quadruple 
intermediate  text  formats  and  DEC  PDP  11  assembly  language  statements  as 
outputs,  was  selected  for  modification  to  produce  microprograms.  A post 
processor  is  described  which  was  added  to  this  compiler  to  produce  micro- 
code for  the  DEC  PDP  11/1+5  minicomputer.  A performance  analysis  of  this 
compiler  concludes  the  report. 
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Section  1.0  INTRODUCTION 


1.1  BACKGROUND 

The  techniques  of  microprogramming  provide  facilities  for  the  imple- 
mentor of  a computer  application  to  optimize  the  performance  of  the  hard- 
ware. Calculations  which  are  carried  out  repeatedly,  e.g.  operating 
system  kernels,  and  digital  filter  and  graphics  display  routines,  can 
all  he  speeded  up  by  factors  of  up  to  ten  with  microprogrammed  implement- 
ations. In  spite  of  the  potential  performance  enhancements  possible 
through  microprogramming,  there  hasn't  been  a widespread  use  of  these  tech 
niques  by  the  users  of  computers.  Much  of  this  reluctance  on  the  part  of 
the  computer  user  is  the  inherent  difficulty  of  writing  microprograms. 

Although  high  level  languages  (HLL)  are  widely  used  to  relieve  comp- 
uter programmers  from  writing  applications  in  machine  or  assembly  language 
this  facility  hasn't  been  developed  to  simplify  the  preparation  of  micro- 
programs which  is  a more  difficult  task  than  assembly  language  programming 
A few  attempts  to  develop  experimental  compilers  from  a HLL  to  microcode 
have  been  described  (l,2)  but  there  has  been  no  adoption  of  this  concept 
by  the  manufacturers  of  "user"  microprogrammed  hardware.  The  concepts 
of  designing  such  compilers  haven't  been  extensively  developed  and  the  pre 
paration  of  microcode  from  a HLL  for  computers  with  a horizontal  encoded 
control  word  hasn't  been  accomplished  to  date.  This  report  will  describe 
some  techniques  which  have  been  developed  to  establish  feasibility  of  gen- 
eration of  microprograms  from  a HLL  for  a range  of  CQmputer  architectures, 

The  production  of  support  tools  to  better  utilize  the  facilities 
offered  the  application  programmer  has  been  a major  object  of  research  at 
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(3) 

GWU.  Abd-Alla  and  Karlgaard  developed  one  of  the  first  algorithms  for 

automatically  optimizing  microcode  by  scanning  the  object  code  and  identi- 
fy) 

fying  segments  to  be  microprogrammed.  This  work  was  extended  by  Moffett 
and  Evans ^ ^ . More  recently  Fodor^  implemented  a microcode  compiler 
based  upon  the  high  level  microprogramming  language,  MPL,  proposed  by 
Eckhouse^.  This  research  had  two  objects:  one  was  to  see  if  a trans- 
lator writing  system  (TWS),  i.e.  XPl/^  , could  be  used  to  implement  a 
compiler  for  microprograms; and  second  to  determine  the  efficiency  of  a 
compiler  developed  using  a TWS.  From  this  research  it  was  determined  that 
the  TWS  could  be  used  to  implement  a compiler  for  a HLL  which  directly 
produces  microcode.  Further  it  was  demonstrated  that  the  resultant  micro- 
code produced  by  the/^com^iler  was  nearly  as  efficient  in  storage  utiliza- 
tion and  running  time  as  the  equivalent  microcode  produced  by  hand  coding. 

In  the  later  sections  of  this  report  the  term  host  machine  -will  be 
used  to  designate  the  computer  hardware  for  which  the  microprograms  are 
implemented.  This  terminology  is  widely  used  to  differentiate  the  hardware 
in  which  the  microprograms  are  executed  and  the  computer  machine  language 
being  interpreted  by  the  microprograms.  The  machine  language  is  considered 
as  defining  the  target  machine.  In  this  study  the  target  machine  will 
be  the  PLM  language. 

The  Ballistic  Missile  Defense  (BMD)  distributed  data  processing  (DDP) 
test  bed  has  a requirement  to  provide  a flexible  computational  environment 
and  the  DEC  VAX  11/780  computers  selected  for  the  test  bed  incorporates 
the  user  microprogramming  feature  to  support  this  need.  Since  direct  (hand) 
generation  of  microcode  is  tedious,  error  prone,  and  time  consuming,  it  was 
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apparent  that  some  way  of  simplifying  the  preparation  of  microprograms  for 
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these  machines  was  desirable.  The  DEC  VAX  11/780  has  a 96  bit  horizontally- 
encoded  control  word  and  a feasibility  study  to  determine  if  microcode  could 
be  produced  for  this  machine  from  a HLL  was  initiated  at  The  George 
Washington  University  where  experimental  compilers  of  this  type  (2)  had 
previously  been  designed  and  implemented. 

Two  experimental  compilers  were  available  to  support  this  feasibility 
study  and  the  main  effort  was  devoted  to  activating  and  evaluating  each 
system  to  determine  its  applicability  to  the  generation  of  microcode.  It 
was  determined  that  only  one  of  the  compilers  was  satisfactory  in  a selection 
process  described  below.  This  compiler  was  modified  to  produce  microcode 
for  the  DEC  PDP  11/U5  as  a substitute  for  the  DEC  VAX  11/780  machine  since 
the  control  word  field  descriptions  weren't  available  for  the  latter  machine. 
The  modified  compiler  has  demonstrated  an  ability  to  generate  microcode  for 
a computer  with  a horizontally  encoded  control  word  as  described  below. 

A performance  analysis  of  the  compiler  shows  acceptable  performance. 


1.2  EXPERIMENTAL  OBJECTIVES 


The  following  objectives  were  established  for  this  feasibility  study 
at  th^  outset: 

(a)  Modify  the  two  available  compilers  described  above  so  that 
they  will  produce  microprograms  for  a computer  with  a horizontally  encoded 
control  word. 

(b)  Evaluate  the  performance  of  the  compiler.  Two  criteria  will 

be  used: 


1.  The  number  of  micro  instructors  needed  to  implement 
test  cases. 

2.  The  number  of  main  storage  references  required. 

These  criteria  will  be  compared  between  microcode  produced  from  FORTRAN  and 
DECPDP  Assembly  Language  and  microcode  compiled  by  the  quad  compiler  for  the 
test  cases. 


1. 3 ACCOMPLISHMENTS 


(a)  Both  compilers  which  were  to  be  used  in  the  feasibility  study 
were  activated  and  test  cases  prepared.  After  some  investigation  it  was 
decided  to  concentrate  on  the  PLM  to  quadruple  compiler  due  to  its  much 
greater  flexibility  at  the  HLL  level. 

(b)  A post  processor  was  developed  which  converts  the  quadruples 
generated  by  the  quad  compiler  into  special  register  oriented  quadruples. 

The  post  processor 

is  designed  to  be  general  purpose  and  capable  of  generating  register  quads 
for  any  machine  architecture. 

(c)  A micro  code  generator  for  the  DEC  PDP  11/1*5  was  implemented.  It 
is  again  a generalized  design  capable  of  converting  R quads  into  microcode 
for  any  host  machine  with  a horizontal  encoded  control  word. 

(d)  An  evaluation  was  made  relative  to  the  criteria  of  the  number  of 
microinstructions  and  main  storage  references  required  to  implement 

the  test  cases.  The  microinstructions  and  main  storage  references  generated 
by  the  quad  compiler  are  compared  against  the  same  criteria  derived  from 
hand  coded  DEC  PDP  11  assembly  language,  and  FORTRAN  IV  implementations  of 
the  test  cases. 

Section  2.  COMPILER  DESIGN  AND  DESCRIPTION 

As  noted  above,  two  available  compilers  were  considered  for  the  gener- 
ation of  microprograms  from  a HLL.  Both  were  implemented  using  a translator 
writer  system  (TWS)  (6)  which  is  based  upon  the  XPL  high  level  language. 

This  system  provides  a methodology  for  producing  a compiler  for  a high 
level  language  which  can  be  defined  in  terms  of  a BNF  grammar.  It  consists 
of  a language  analyzer,  a prototype  compiler  (called  skeleton),  and  compiler 
(called  XCOM)  which  accepts  a program  written  in  the  XPL  high  level  language 
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and  produces  object  code  for  the  IBM  370  system. 

The  procedure  for  using  the  TWS  is  to  define  the  high  level  language, 
for  which  a compiler  is  to  be  implemented,  in  a BNF  format.  This  is  entered 
into  the  language  analyzer  which  produces  a set  of  parsing  tables  for  the 
specified  language.  These  tables  are  entered  into  the  prototype  compiler 
and  a set  of  routines  written  in  XPL  are  inserted  to  carry  out  the  compilation 
activity.  These  are:  semantic  routines  to  define  the  meaning  of  the 
individual  phrases  of  the  HLL  input  statements;  code  generators  to  convert 
these  meanings  into  object  code  for  the  specified  host  machine;  and  symbol 
table  and  other  data  management  routines.  The  resultant  program  is  a compiler 
for  the  specified  HLL  written  in  the  XPL  language  which  is  now  compiled  by 
the  XCOM  compiler  into  an  IBM  370  object  load  module.  This  load  module  when 
loaded  into  a 370  computer  will  compile  a program  written  in  the  specified  HLL 
into  object  microcode  for  host  machine.  The  operation  of  the  TV7S  is  illus- 
trated in  figure  1. 

The  two  compilers  accepted  a variant  of  PL/1  as  an  input  HLL.  One 
designated  the  MOD  3 Compiler  accepts  a version  cf  MPL  (l)  and  produces  micro- 
code for  the  Interdata  MOD  3 minicomputer.  The  second  designated  the  Quad 
Compiler  accepts  PLM  (7),  a subset  of  PL/l  which  is  supported  by  INTEL  as  a 
HLL  input  to  a compiler  which  produces  object  code  for  the  8080  series  of 
microprocessors.  This  compiler  produces  quadruples,  a form  of  intermediate 
text  (8)  which  are  translated  into  DEC  PDP  11  machine  code.  An  overview  of 
the  operation  of  these  compilers  is  given  in  figure  2.  A detailed  program 
listing  of  the  Quad  compiler  can  be  found  at  appendix  7-1, Table  I provides  a 
definition  of  the  quads  generated  by  the  Quad  Compiler. 


HLL  Source 
BNF  Grammar 


XPL  Source  Language 
Version  of  HLL  Compiler 


IBM  370  Object 
Load  Module 


Figure  1 TV/S  Functional  Flow 
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PLM  Compiler 
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IBM  370 
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Inter  Data  M0D3 
Microprogram 
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DEC  POP  .U/45 
Translator 
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DEC  POP  31/45 

Assembly  Language 


Figure  2 (a)  FPL  Compiler  Overview 
(b)  PLM  Compiler  Overvibi 


Quad  to 

R Quad 
Processor 

1 
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Microcode 
Generator 

DEC  PDP  11/45 
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TABLE  I 

QUADRUPLE  FORMATS  GENERATED 
BY 

QUAD  COMPILER 


Type 

Operator 

Operand  1 

Operand  2 

Result 

1. 

Arithmetic 

+,-,*,GT,LT,EQ 

Variable 

Variable 

Variable 

2. 

Branch 

( Cond) 

BT,BF 

Variable  (Flag) 

- 

Addr  (Label) 

3. 

Branch 

(Uncond) 

BR 

- 

- 

Addr  (Label) 

It. 

Data 

ASGN 

Variable  (ADDR) 

- 

Addr  (Var) 

5. 

Label 

LAB 

Addr  (Label) 

- 

6. 

Array 

SUBS/SUBL 

Address  (Array) 

Index 

Addr  (Var) 
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To  illustrate  the  use  of  these  compilers,  a sample  program  is  shown  in 
terms  of  its  input  and  output  for  each  compiler  in  figure  3 and  U.  Note 
that  the  input  to  the  M0D3  compiler  is  written  in  terms  of  the  internal 
machine  registers  and  functional  units  even  though  the  statements  are 
written  in  a HLL  format.  This  implies  the  user  of  this  HLL  must  have  an 
intimate  knowledge  of  the  Interdata  M0D3  hardware.  The  input  to  the  quad 
compiler  is  more  general  and  appears  much  more  like  statements  normally 
associated  with  a HLL.  This  generality  does  lead  to  a complexity  which  will 
he  discussed  below. 


Section  3.  SELECTION  OF  APPROACH 

Both  compilers  were  activated  at  the  George  Washington  University  Computer 
Center  (An  IBM  370  MOD  lU8  Installation).  The  M0D3  compiler  was  easily 
activated  but  the  quad  compiler  which  had  been  originally  implemented  on  a 
different  computer  required  a number  of  changes  before  becoming  operational. 
During  the  implementation  of  the  test  programs  shown  in  table  II,  it  became 
apparent  that  the  M0D3  compiler  suffered  from  a serious  lack  of  generality. 

As  noted  above) the  HLL  statements  had  to  be  written  in  terms  of  the  internal 
functional  components  of  the  Interdata  M0D3.  Programs  written  in  a machine 
independent  form  were  rejected  by  this  compiler.  Based  upon  this  lack  of 
generality,  it  was  decided  not  continue  working  with  this  compiler. 

The  quad  compiler  accepts  as  input  programs  a very  natural  formulation  of 
the  test  case  algorithms  and  produces  an  equivalent  quadruple  representation 
along  with  a DEC  PDP  11  assembly  language  version  which  is  derived  from 
the  quadruples.  Some  problems  were  encountered  and  solved  for  handling  of 
arrays  and  nested  DO  loops  and  a "built  in"  multiply  routine  was  implemented 
to  permit  a wider  range  of  test  programs. 
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Fig  3 (a)  MPL  Source  Program  for  Greatest  Element  Test  Program 
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GREATEST  ELEMENT tPROCEDURE;  „ . 
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Fig  h (a)  PLM  Source  Code  for  Greatest  Element  Test  Program 
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Fig  L (b)  Quadruple  Representation  of  Greatest  Element  Test  Program 
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Fig  1*  (c)  DEC  pop  11 
Assembly  Language 
Representation  of 
Greatest  Element  Test 
Program 
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TABLE  II 


LIST  OF  TEST  PROGRAMS 
USED  TO  EVALUATE  THE 
QUAD  COMPILER 


Fibonacci  Series:  Evaluates  successive  terms  of  this  series. 

Greatest  Element:  Finds  the  largest  number  in  a list. 

Bubble  Sort:  Sorts  a list  of  numbers  into  ascending  order. 

Prime:  Uses  Sieve  of  Erasthenes  to  identify  the  prime  numbers  between  1 and  N. 
Filter:  A digital  low  pass  filter  algorithm. 


The  next  task  was  to  select  the  computer 


to  serve  as  the  host 


machine  for  the  microcode  to  he  generated  by  the  quad  compiler.  The  study 
contract  specified  the  DEC  VAX  11/780  system  to  be  the  host  machine  but  we  were 
unable  to  get  an  adequate  hardware  description  of  this  system.  As  a result 
we  were  required  to  look  for  an  alternate  system.  Our  choice  was  narrowed  down 
to  a DEC  machine  with  a horizontal  control  word  format  as  similar  as  possible 
to  the  VAX  machine  (96  bit  horizontal  control  word).  Due  to  the  availability 
of  adequate  hardware  information  for  the  DEC  PDP  11/U5  system,  which  has  a 
56  bit  horizontal  control  word  format  with  18  control  fields?this  system  was 
chosen  to  be  the  host  machine. 

Another  reason  for  choice  of  a DEC  PDP  11  computer  model  was  the  availa- 
bility of  DEC  PDP  11  assembly  language  output  from  the  quad  computer.  This 
factor  facilitated  the  compiler  evaluation  activity. 

A number  of  difficulties  immediately  surfaced.  The  DEC  PDP  II/U5  has  no 
means  for  entering  literal  data  at  the  microprogram  level.  This  means  that 
all  addresses,  indices,  constants,  etc.  specified  for  program  written  in  PLM 
had  to  be  stored  in  main  memory  in  the  DEC  PDP  11/1+5.  There  are  only  six  reg- 
isters available  to  the  programmer  in  this  machine  and  when  the  number  of 

indices,  constants,  and  other  currently  processed  variables  exceeds  six  then 
as  a backup  they  must  be  resident  in  main  artorage.  At  any  particular  point  in 
the  execution  of  the  test  algorithm  only  currently  referenced  data  items  are 
stored  in  the  internal  registers.  These  limitations  lead  to  the  generalized 
approach  to  handling  internal  register  contents  to  be  described  below. 

An  interesting  side  affect  of  the  absence  of  a means  for  introducing 
literal  data  at  the  microprogram  level  was  the  discovery  that  it  was  not 
feasible  to  directly  microcode  algorithms  for  the  DEC  PDP  11/^5  when  the 
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number  of  constants  and  indices  exceeded  the  available  internal  register 
supply.  For  the  test  cases  utilized  in  the  study,  all  but  one  (the  generation 
of  Fibonacci  series  values)  was  not  directly  mi c reprogrammable  in  the  DEC  PDF 
11/1*5.  This  had  the  undesirable  side  effect  of  eliminating  one  boundary  of 
direct  or  hand  produced  microcode  as  a yard  stick  against  which  to  measure 
the  efficiency  of  the  quad  compiler  for  producing  DEC  PDP  11/1*5  microcode. 

Section  1*.  MICROCODE  GENERATION 

1* . 1 R QUAD  GENERATOR 

I 

Before  describing  the  R Quad  Generator  it  will  be  necessary  to  briefly 
describe  the  DEC  PDP  11/1*5  which  was  selected  as  the  host  machine  for  the 
microcode  to  be  compiled  from  the  PLM  HLL.  This  is  a typical  minicomputer 
architecture  which  was  designed  to  efficiently  interpret  the  DEC  PDF  11 
instruction  set  (9).  An  overview  block  diagram  of  this  system  is  shown  in 
f i gure  5 . 

As  noted  above,  the  control  word  for  the  DEC  PDP  11/1*5  contains  56  bits 
and  has  18  control  fields.  A list  of  these  control  fields  and  their  purpose 
is  shown  in  table  III.  Note  that  there  are  16  registers  controlled  through 
the  microprogram  of  which  six  are  available  for  general  use.  Memory  read 
access  is  via  a BA  register  which  transmits  an  address  over  the  DEC  UNIBUS  to 
memory  which  returns  a value  one  access  time  later  over  the  same  bus.  Memory 
write  is  similar  except  a data  value  and  address  are  transmitted  to  memory  via 
the  UNIBUS. 

Because  of  the  limited  number  of  free  registers  in  the  DEC  PDP  11/1*5  CPU, 
it  was  decided  to  maintain  all  program  constants,  addresses,  indices  and  variables 
defined  in  the  quadruples  output  by  the  compiler  in  main  storage  and  only 
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TABLE  111 

DEC  PDP  11/1*5 
MICROCODE  CONTROL  FIELDS 


1. 

CLK 

(3  bits) 

- 

Clock  Control  Field 

2. 

CIR 

(1  bit) 

- 

Clock  UNIBUS  into  IR  Register 

3. 

WR 

(2  bits) 

- 

Controls  Write  DMUX  input  to  the  General  Registers 

U. 

CB 

(1  bit) 

- 

Clock  DMUX  into  B Register 

5- 

CD 

(l  bit) 

- 

Clocks  ALU  Output  into  D Register 

6. 

CBA 

(1  bit) 

- 

Clocks  Data  into  BUS  Register 

7. 

BUS 

(3  bits) 

- 

BUS  Control 

8. 

DAD 

(1*  bits) 

- 

Data  Path  Alteration  Control 

9. 

SPS 

(3  bits) 

- 

Controls  Loading  and  Clocking  of  PSW  Register 

10. 

ALU 

(5  bits) 

- 

ALU  Mode  and  'Operation  Select 

11. 

SBC 

( k bits) 

- 

Microprogram  Constant  Selection 

12. 

SBM 

(1*  bits) 

- 

BMUX  Input  Control 

13. 

SDM 

(2  bits) 

- 

DMUX  Input  Control 

lU. 

SBA 

(1  bit) 

- 

Selects  Input  to  BA  MUX 

15. 

UBF 

(5  bits) 

- 

Micro  Branch  Field 

16. 

SRX 

(It  bits) 

- 

General  Register  Address  Source  Selection 

17. 

RIF 

(1*  bits) 

- 

General  Register  Address 

18. 

UPF 

(8  bits) 

- 

Next  microinstruction  address 
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keep  a limited  number  in  registers  as  required  at  each  point  in  the  calculation. 
This  requires  keeping  track  of  where  all  variables,  etc.  are  stored  in  memory 
and  which  are  in  the  registers.  This  is  accomplished  at  compile  time  by 
generating  a register  content  table  which  provides  the  required  address  pointers, 
usage,  status,  and  register  content  of  program  data  in  current  use.  It  is 
important  to  note  that  generation  of  this  table  doesn't  impact  run  time  execution 
of  the  microprogram  but  only  the  compilation  activity. 

An  overview  of  how  R quads  are  generated  is  shown  at  figure  6.  We  start 
with  a set  of  quadruples  generated  by  the  compiler  in  which  all  operands  are 
described  in  terms  of  the  variables  specified  by  the  programmer  of  the 
algorithm  in  PLM  and  those  variables,  generated  by  the  compiler,  e.g.  the  indices 
generated  to  implement  a DO  loop  or  array  structure.  As  each  quadruple  is  read 
in  by  the  R Quad  generator  it  examines  each  operator  and  operand.  The  -perands 
representing  constants,  indices  and  variables  are  assigned  memory  locations. 

A set  of  allocate  and  deallocate  routines  load  and  unload  the  program  data 
into  and  out  of  the  internal  registers  using  read  and  write  quadruples  defined 
for  this  purpose.  Operands  with  the  same  value,  e.g.  constants,  are  assigned 
to  the  same  register.  Variables  assigned  an  initial  value,  which  is  already 
stored  in  a register,  will  be  assigned  to  the  same  register.  When  the  supply 
of  internal  registers  is  exhausted,  an  algorithm  selects  operands  currently 
stored  in  the  registers  to  be  loaded  into  storage  to  make  room  for  currently 
needed  variables.  As  noted  above,  a record  of  all  these  operand  assignments 
is  being  maintained  during  the  R Quad  generation  process. 

Two  special  cases  must  now  be  examined.  The  first  is  the  quadruple 
representing  a label.  This  quadruple  is  generated  by  the  compiler  in  implement- 
ing a DO  loop  and  other  program  structures  which  must  serve  as  a point  to  be 
branched  to  from  other  parts  of  the  microprogram.  Of  course,  statement  labels 
can  be  inserted  in  the  HLL  source  as  required.  The  second  case  involves 
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Figure  5 

R Quad  Processor  Overview 
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quadruples  which  specify  branches.  These  may  be  either  compiler  generated 
or  be  part  of  the  HLL  source  statements.  In  both  of  these  cases  the  contents 
of  the  internal  CPU  registers  are  subject  to  change  and  the  existing  contents 
must  be  saved.  In  the  case  of  a label,  a branch  may  be  made  to  this  quadruple 
from  some  other  quadruple  in  the  microprogram.  The  register  contents  specified 
by  the  quadruples  before  the  label  quadruple  will  need  to  be  replaced  if  a 
branch  occurs  to  this  label.  In  the  event  the  program  returns  to  this  point 
again  the  old  register  contents  must  be  saved.  Likewise  in  the  case  of  a 
branch  quadruple  it  isn't  known  beforehand  which  way  the  branch  will  go.  Because 
of  the  possibility  of  not  taking  the  branch,  the  current  register  values 
are  saved. 

The  R Quad  processor  assigns  to  registers  all  operands  in  quadruples 
generated  by  the  compiler  and  generates  the  appropriate  additional  quadruples 

H 

to  move  operand  data  between  the  registers  and  memory  as  required  to  meet  this 
objective.  The  result  is  a set  of  quadruples  with  most  operands  specified  in 
terms  of  internal  registers.  This  is  illustrated  in  figure  7,  which  shows  the 
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TABLE  IV 

REGISTER  QUADS  WITH  OPERANDS  REPRESENTING  INTERNAL  REGISTERS  OR  ADDRESSES 


OPERATION 

OPERAND  1 

OPERAND  2 

RESULT 

ACTION 

RD 

Addr 

- 

Reg  n 

Read  Content  of  Addr  into 
Register  n 

WT 

Reg  n 

- 

Addr 

Write  Register  n into  addr. 

RDAD 

Var 

- 

Reg  n 

Read  Addr  of  Varaible  into 
Register  n 

RDVR 

Reg  n 

Reg  m 

Read  value  in  Reg  m from 
address  specified  in  Reg  n 

WTAD 

Reg  n 

Reg  m 

Write  contents  of  Reg  n into 
addr  in  Reg  m 

ASL 

Reg  n 

Reg  m 

Write  contents  of  Reg  n into 
Reg  ra  shifted  left  one  place 
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STATUS  VAR  NUM  VAR  TEMP  Reference  DeallocABIJ  Address 


Variable 

Pointer 

- V 


One  Entry  Per  Register 


Contents  of  Each  Field  are: 


Status:  it  indicates  its  associated 
register  is  allocated  to  a 
variable  or  not,  it  is  a two 
valued  entry  'FREE'  or  'ALLOCATED'*’ 

VAR_NUM:  it  counts  number  of  variables 
assigned  to  the  register 

VAR_TEMP:  it  counts  number  of  temporary 

variables  assigned  to  the  register 

Reference:  its  contents  is  a number  to  indicate 
the  last  reference  to  the  register 
relative  to  the  reference  to  the 
other  registers. 

Deallocabl:  it  indicates  if  the  register 
can  be  used  in  the  quad  under 
process  or  not,  its  value  is 
'YES'  or  'NO' 

Address:  it  is  a two  valued  element  to  indicate 

if  the  contents  of  the  register  is  value 
of  or  address  of  a variable,  it  can  take 
value  of  'YES'  or  'NO' 

Var_Pointer:  a pointer  to  list  of  variables 
assigned  to  the  register 

Variable:  variable  name  assigned  to  the  register 

Change:  this  entry  indicates  if  the  variable  has 
changed  its  value  after  the  last  time 
that  it  has  been  read  from  the  memory 

Next_Var_PTR : it  is  a pointer  to  the  next 
variable  associated  to  the 
same  register 
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Figure  3 
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consists  of  a case  statement  which  causes  a branch  to  a routine  for  each 
quadruple  type.  This  routine  refers  to  a tabulation  of  the  actions  carried  out 
by  each  control  field  of  the  DEC  PDP  11/1*5  and  selects  the  appropriate  binary 
value  to  actuate  the  required  function.  More  than  one  microinstruction  may  be 
generated  for  a given  quadruple.  In  figure  9 "the  microprogram  corresponding 
to  the  r Quads  shown  in  figure  7 is  shown. 

To  actually  use  the  microprogram  in  the  DEC  PDP  11/1*5  it  would  be  necessary 
to  created  a load  module.  This  would  require  creation  of  a control  storage 
address  table  which  provides  relative  address  values  for  all  operands  specifying 
addresses.  This  process  would  be  similar  to  that  required  for  a conventional 
loader  routine  used  to  create  load  modules  for  machine  language  programs. 

Section  5.0  PERFORMANCE  EVALUATION 

5-1  EVALUATION  APPROACH 

One  of  the  questions  concerning  use  of  a compiler  to  generate  microprograms 
is  the  ability  to  produce  "efficient"  microcode.  The  meaning  of  the  word 
"efficient"  is  somewhat  arbitrary.  To  develop  a precise  meaning  is  cumbersome, 
but  in  general  it  means  the  generation  of  micrograms  which  run  in  a minimum 
time.  As  noted  above,  two  measures  which  have  been  adopted  for  expressing 
"efficiency"  for  this  study,  are  the  number  of  microinstructions  generated 
to  represent  the  algorithm  and  the  corresponding  number  of  main  memory  refer- 
ences. Since  we  were  unable  to  execute  the  microprograms  generated  in  this 
study,  the  more  meaningful  criteria  of  execution  time  wasn't  obtainable. 

As  noted  above,  a comparison  was  made  of  alternate  ways  of  generating 


J 


DEC  PDP  11/1*5  microcode.  One  was  to  produce  DEC  PDP  11/1*5  microcode  directly 
using  the  Quad  Compiler.  Another  way  was  to  take  the  DEC  PDP  11/1*5  assembly 
language  statements  produced  by  the  Quad  Compiler  and  convert  these  into 
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equivalent  microcode.  A third  way  was  to  hand-code  a DEC  PDP  11/1+5  assembly 
language  version  and  then  convert  that  into  equivalent  microcode.  The  final 
way  is  to  use  a DEC  supplied  FORTRAN  Compiler  which  produces  DEC  PDP  11 
assembly  language  statments  which  are  then  converted  into  microcode.  Figure  10 
illustrates  these  alternate  paths  for  generating  microcode  and  the  comparative 
results  are  shown  in  Table  V. 

As  noted  above,  only  the  Fibonacci  Series  test  problem  could  be  directly 
hand  coded  into  microcode.  The  number  of  mi  qBj/in  struct  ions  for  this  case  was 
11  compared  to  83  generated  by  the  Quad  Compiler.  It  should  be  noted  that  for 
this  test  case  all  indices  and  variables  could  be  left  in  internal  DEC  PDP  11/1+5 
registers  and  no  memory  references  were  required.  This  shows  that  hand-coded 
microcode  can  be  veiy  efficient  but  of  very  limited  application. 

5.2  QUAD  COMPILER  PERFORMANCE 

The  data  shown  in  .Table  V indicates  that  for  the  very  simple  test  cases 
(Fibonacci  Series,  Greatest-Element)  the  hand-coded  DEC  PDP  11  assembly  langauge 
implementation  is  more  efficient  than  the  quad  compiler  implementation.  For 
the  more  complex  test  cases  (digital  filter  and  Prime  Number  Generator)  the 
quad  compiler  is  more  efficient.  Another  interesting  comparison  is  to  the  DEC 
PDP  11  machine  language  statments  produced  by  the  quad  compiler  from  the  quad 
representation.  It  has  been  well  established  (10)  that  assembly  language 
implementations  produced  by  compilers  aren't  as  efficient  as  hand  coded  assembly 
language,  which  is  indicated  by  the  results  shown.  Going  directly  from  quads 
to  microcode  appears  to  be  about  k times  more  efficient  than  going  from  quads 
to  DEC  PDP  11  machine  language  and  then  to  micOgcode  for  the  more  complicated 
test  cases.  The  DEC  PDP  11  assembly  language  to  microcode  alternative  produces 
from  1.5  to  2 times  as  many  microinstructions  as  the  direct  PLM  to  microcode  via 
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compiler  method.  In  general  the  PLM  to  microcode  compiler  appears  to  be 
compare  le  with  hand  coded  assembly  language  in  spite  of  the  necessity  to 
move  register  data  in  and  out  of  main  storage  for  label  and  branch  quadruples. 
To  date  no  attempt  has  been  made  to  optimize  the  PLM  to  quad  compiler  or  the 
R Quad  generation  process.  It  is  our  intention  to  pursue  these  alternatives 
as  ongoing  research. 

As  indicated  by  the  asterisks  on  figure  10  and  table  V,  we  had  intended 
to  compare  the  performance  of  the  PLM  to  DEC  PDP  llA5  compiler  with  a 
standard  commercially  available  FORTRAN  compiler  supplied  for  the  DEC  PDP 
11  systems.  FORTRAN  versions  of  the  fiS/e  test  programs  have  been  prepared 
but  we  are  unable  to  get  a machine  language  listing  (object  code)  with  any 
of  the  compilers  we  have  access  to.  Accordingly,  the  corresponding  efficiency 
comparison  to  the  DEC  FORTRAN  compiler  isn't  shown  in  table  V.  We  anticipate 
obtaining  this  data  in  the  near  future  and  it  will  be  supplied  as  an  addendum 
to  this  report. 

SECTION  6.0  RECOMMENDATIONS  FOR  FURTHER  RESEARCH 

6.1  Conversion  of  Input  Language  of  Quad  Compiler  to  PASCAL 

PASCAL  has  been  widely  accepted  as  a high  level  language  used  for 
scientific  research.  The  U.S.  Army  BMD  DDP  Test  Bed  has  selected  PASCAL 
as  its  standard  language.  Accordingly,  it  is  desirable  to  have  this  language 
as  an  input  to  a compiler  producing  microcode  for  the  DEC  VAX  11/780.  PASCAL 
has  a considerably  more  complex  syntax  structure  than  PLM  and  some  problems 
will  have  to  be  resolved  to  convert  the  present  quad  compiler  to  accept  PASCAL 
as  an  input  language.  It  is  very  likely  that  due  to  limitations  in  the  XPL 
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TWS,  we  may  not  be  able  to  implement  the  entire  PASCAL  language  but  only 
a subset.  The  selection  of  this  subset  is  a research  issue.  A proposal  to 
carry  out  this  research  has  been  accepted  and  is  about  to  begin. 

6.2  Optimization  of  Quad  Compiler 

There  has  been  no  attempt  made  to  optimize  the  performance  of  the 
quad  compiler.  There  are  two  levels  of  optimization  that  can  be  attempted. 

The  first  would  be  to  optimize  the  generation  of  quadruples  by  the  compiler  and 
the  second  would  be  to  optimize  the  generation  of  R Quads.  It  is  felt  that 
taking  advantage  of  both  of  these  optimization  prospects  should  greatly  enhance 
the  performance  of  the  PASCAL  to  Quad  to  DEC  VAX  11/780  compiler.  Since  it 
is  necessary  to  get  the  compiler  converted  to  the  PASCAL  input  language  pro- 
ducing microcode  for  the  DEC  VAX  11/780,  research  into  introducing  optimization 
into  this  compiler  must  be  deferred.  A proposal  indicating  several  approaches 
to  quad  compiler  optimization  will  be  generated  in  the  near  future. 

6.3  Microprogram  Host  Machine  Interface  Study 

In  developing  a compiler  to  produce  microcode  for  a host  machine  with  a 
horizontally  encoded  control  word,  it  quickly  became  apparent  that  the  host 
machine  architecture  had  a profound  impact  on  the  ease  with  which  the  compiling 
process  could  be  carried  out.  As  noted  above,  the  DEC  PDP  11 A5  has  serious 
limitations  for  hand  coded  microprograms  and  it  became  apparent  that  there  was 
a preferred  host  machine  architecture  if  an  intermediate  program  representation 
was  going  to  be  used,  i.e.,  quadruple  or  triple  format.  Tuning  of  the 
architecture  to  optimize  performance  of  compiled  microcode  via  an  intermediate 
representation  could  also  lead  to  a less  complex  compiler  internal  structure. 

A study  of  these  tradeoffs  among  host  machine  architecture,  intermediate 
program  representation,  and  the  complexity  of  the  microcode  compiler  would  have 
great  research  value.  As  more  understanding  of  the  host  machine  architecture 
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3 


34  7 1 
34*  | 
34  - ! 
3“'D  | 

351  | 

352  | 
CK3  1 
354  | 
3 >5  | 
356  | 
35*  | 
375  I 
759  | 
?*C  I 
3M  I 
362  | 

353  ! 
364  | 
364  | 
3.66  | 
767  | 
36  5 i 

| 

373  1 
371  1 
3 72  i 
3 77  i 
3 74  I 
375  | 
3 76  1 
377  I 
375  | 
379  ( 
0 I 
3 M I 
3P2  I 
3 53  | 

354  ) 
335  | 
396  | 
337  | 
388  | 
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3?4  | 

0 , 0 , 3 , 0 , D , 0 , 0 , 0 , 0 , C , 2 , n , 

9,  0,  0, 

0, 

9, 

0,  9, 

0, 

0 f 

0, 

u , 0 , 

( 

V « i 

12  36 

325  1 

C » Of  0»  Of  0»  0#  0,  0»  0*  Ot  Of  Of 

9,  9,  0, 

0, 

9 , 

9,  9, 

D, 

0, 

0, 

9,  0, 

9,  I 

1286 

326  I 

Of  0#  Oi  Df  Of  0 i Of  Of  Of  Of  Of  Of 

0,  0,  0, 

0, 

J • 

0)  : 

1 

123"; 

327  1 

OFCUr.*:  LFF  T.CONTFXTN  1 0IT(8»  INITIAL 

1 1 D7 , 4 

, 43 

, 

96,  871 5 

1 

lCt 

328  | 

CFCLAOF  LFFT_!\»PEX{  57»  811(8)  INITIAL 

I 9,  9,  0 

, 9, 

9 

, D , 0 

, o. 

9, 

0 

, 0,  9 

, 1 

1 7 7< 

329  | 

O'  Of  Of  l«  1#  It  )r  If  If  If  If  If 

1 , 1 , l . 

1 . 

1 . 

1,1. 

4 , 

**  f 

4, 

4,  4, 

4,1 

176  6 

33  0 1 

4r  5,  5 9 r>t  5 r 5 1 5f  *>,  0,  5 , S,  5, 

5,  5,  5, 

5, 

5, 

5,  5, 

5, 

j ) ; 

1 

USf 

331  | 

DECLARE  C DNTE  XT_TR  I P L 1 1 C 1 FUED  INITIAL  ( 0); 

1 

1 2 8C 

332  1 

TTECLARF  T?IPLF_INDcX(^7)  D1TI8)  INITIAL  1 0,  0, 

0, 

C , 

0,  0 , 

0, 

•* » 

0, 

0,  9, 

0,1 

1236 

333  1 

0,  0,  9,  0,  0,  0,  D,  0,  Cl,  D,  0,  0, 

9,  9,  9, 

9, 

9, 

0.  c. 

0, 

0, 

9, 

9,  9, 

0,  I 

128 1 

334  | 

9,  0,  9,  0,  9,  0,  0,  9.  0,  D,  9,  0, 

9,  0,  9, 

0, 

0. 

9,  0, 

0, 

1 ) ; 

i 

1286 

355  | 

DECLARE  PR_meX<l98l  SITI91  INITIAL  ! 

1,  21,  2 

6,  35, 

42,  44,  4 

’ » 

45 

, 51  , 

51.1 

1236 

336  | 

51  , 51  , 51  , 51 , 5! , 51,  51 , 53,  5*, 

56.  54, 

5-, 

55 

, 5 6, 

^5, 

5, 

5 

5,  65, 

1 

12  86 

3 37  | 

56,  57,  57,  57,  56,  5E,  ?•* , 55,  (9, 

61,  tl. 

62, 

62 

, 6 3, 

6 3 1 

1 3 , 

A f 6 1 f 

1 

1286 

339  | 

66,  6 S , 66,  64,  69,  74,  74,  74,  76, 

77,  33, 

83, 

8 3 

, 33, 

36, 

.6, 

«6»  *0% 

1 

1236 

*39  ! 

97,  d?S,  95,  109,  109,  1 DO , 131,  191 

, 101,  102,  1 

98 

, 1 03 , 

lOt 

, 1 

n 

, DC, 

1 

1266 

340  ! 

111,  111,  111,  112,  112,  113,  113, 

113,  113, 

113 

, 

113,  1 

13, 

l 16 

lit.,  118,1 

128' 

341  | 

115,  115.  113,  120,  120,  129,  1*1, 

122,  124, 

12C 

, 

128,  128, 

125 

t 

130, 

1 

1286 

342  ! 

1301  ; 

1 

1256 

343  1 

1 

12  Sf 

344  ( 

/•  END  OF  CARDS  PUNCHED  5Y  SYNTAX 

*/ 

1 

12 '76 

345  | 

1 

13°.l 

3'. 6 J 

/*  DECLARATIONS  tor  The  SCANNER 

*/ 

1 

128< 

/*  tdkfn  is  the  index  into  thf  vocAiiui  wj  vn  of  ihf  last  synh  .l  scanned,  1 

CP  IS  T H:  PO 1 K TFR  TO  THF  LAST  CM  AS  AC  T 53  SCANNED  IN  The  CARDIPAGS,  | 

HOD  ts  THF  1AST  SV'PnL  SCANNED  (LITERAL  CHARACTER  STRING).  */  I 

DEC-ACE  (TOKEN,  0*  1 fixed,  3CU  CHAR ACT  ER  • 1 

I 

/*  S'  T JP  SO*'  C'WENIENT  AD3R  EV  1 AT  1 DNS  ruC  PRINTER  CONTROL  */  I 

DECL-ARF  E J"CT_P  A 3i  L ! 7 F R At  L Y *OUTPUT(l)  = PAGF*.  | 

P.A  7:-  C HA  RACIER  Emit  I A L CI>1,  DOUftLE  CHARACTER  INITIAL  (*C*lt  i 

D'7U7Lr  _SPiCE  LITERALLY  'JJTPJTm  DOUf.CE*,  I 

X73  CHA"  ACTFK  (NITIU  <•  ) 

’ 1 ; | 

I 

/*  LENGTH  Oe  LONGEST  SYY7GL  IN  V ' / I 

DFCLAPF  UE  SER7FD_LI'MT  , Y AP.Gi  N_CHOP ) fix:P;  ; 

I 

/*  CHA, .TYPED  IS  USED  TO  DISTINGUISH  CLASSES  OF  SYYPI’LS  IN  THE  SCANNER.  J 

TX  ( i IS  A TARlE  USED  FO&  TRANSLATING  FR3Y  ONE  CHARACTER  SET  TC  ANOTHER.  | 

CGNTROLD  HOLDS  DIE  VALUE  OF  THE  COMPILER  CONTROL  TCCGuFS  GET  IN  S CARDS.  I 
N.VT_LETTfcS  OR_.Djr.ITD  [S  SHIUAS  TO  CMARTYPED  PUT  JSS  J IN  SCANNING  I 

IDENTIFIERS  ONLY.  I 

I 

ALL  ARE  USED  RY  Th;  SCANNER  AND  CONTROL D IS  SET  THERE.  I 

*/  I 

DECLARE  ICHARTYPE,  TX)  ( 255  ) tllTIA),  ! 

(CONTROL,  N0T_lETTFR_0K_3IGn  I !2E5I  PITH);  I 

j 

/»  ALPHA2FT  CONSISTS  of  THE  SYY’LDL  $ CONSIDERED  Al?  'Aii'TlC  IN  3-ILDIMG  I 

IDENTIFIERS  */  I 

DECL  AS  !-  ALPHABET  CHARACTER  INITIAL  D A tlC  0£  F GH I JR  I.  YNOPOF  S T JVW  X Y • ) ; I 

I 

/*  PUFFER  HOLDS  THC  LATEST  CARDIN AGE,  I 

TEXT  H.1LDS  TmF  PRC  SENT  STATE  Gr  T HE  INi’JT  TEXT  j 

(NOT  INCLUDING  THE  PORTIONS  DELE  TFD  3Y  THE  SCAVNEPI,  I 

T?XT_I.IMIT  TS  A CDNVL.NI  FNT  PLACE  TD  STG-F  T y)  INTER  TC  THC  END  CF  TEXT,  J 
C A RO_CCU\T  IS  INCREMENTED  GY  ONE  FOR  EVERY  .'.OUFCT  CARD  READ,  - 1 

FR  RU3_Cf!UNT  TABULATES  THE  ERRORS  AS  THEY  ARE  OETcCTFO,  I 

SFVFRE_cRROPS  TABULATES  THOSE  EPROMS  OF  FATAL  SIGNIFICANCE.  ! 

*/  . I 

DECLARE  I3UFFFP,  TEXTI  CHARACTER , I 

<TEXT_LIMIT,  CARO_COUMT,  ER«OR_COGNT  , ScVERE_EftRDKS,  P.AE  V 1 CJ  S_ER  R OR ) FIXED! 


1256 
i 2dc 
128' 
1 2 3( 
13-36 
126! 
!?:’! 
12  36 
I2?6 
1236 
12  8! 
128' 
) 256 
1C-' 
1 2 66 
1 2 o' 
D 7< 
12  36 

1 2 6i 
!?oi 

12  3! 
U - 
12°: 
Ifbi 
12° 
l 2 Si 
1 2 *7 1 
12  0 
I 7 Li 
12  ■ 

1 2 6< 
IC'I 
129. 
12G. 
12  3. 
12>.< 
12  5: 
12S- 
123i 
125! 
12P. 
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390  ! 

391  | 

39?  | 
393  1 

39*  | 

395  I 

396  | 

397  1 
7 33  I 

?9<)  1 
<.03  | 

Ol  i 
*72  i 
<.33  1 
O-V  ! 
<>03  I 
<.  It  | 
4 07  1 
*03  | 
*09  | 

*10  | 
*11  i 
*’.2  I 
*13  ! 
*1*  1 
*15  | 
* . * I 


***■•  I 

**<•  i 
**7  | 
<•*  3 I 
**■>  1 
*30  I 
*51  i 
*52  | 
*53  | 
*5*  | 


/*  N'JMUFR.  VALUE  CONTAINS  TMr  NUMERIC  VALUr  JF  THE  LAST  CCNST.M  SCAJNCD, 

*/ 

0CC LAKE  NJMRir,_VALUE  riXE); 

/*  EACH  OF  THE  FOLLOWING  CONTAINS  THc  TNOEK  INTO  V<  1 OF  T«F  C«-'RE  SPuNOI  NG 
SYMBOL.  WE  ask:  IF  TOKEN  = I DENT  FTC.  */ 

DECLARE  (IDENT,  NUMBER,  DIVIDE,  E0F1LEI  r!XEu; 

/*  ST  D&  1 T ( 1 IS  t TABLE  L'F  SYMBOLS  WHICH  ARE  ALi.f.Wt'1  TO  I F."  * I N-.  T f 7“E  FRRDR 
RUSH  PROCESS.  ]\  GIT-RAL  THEY  ARE  SY'<un;.S  £F  SUFFICIENT  SYNTACTIC 
HIERARCHY  THAT  WF  CXPFCT  TO  AVOIR  ATTEMPTING  TO  START  CHECKINS  ASAIN 
RIGHT  INTO  ANOIHEK  ERROR  “ROOKING  SITUATION.  THL  TOKEN  ST  \CK  IS  ALSO 
F L US  IF 0 DOWN  TO  SOMETHING  ACCEPTABLE  TO  A STCPITIl  SYMBOL. 
rAILS">FT  IS  A BIT  i-.HICH  ALLOWS  THE  COMPILER  ONE  ATTE  IP  I AT  » GENTLE 
R rCC VC RY . THEN  IT  TAKES  A STRONG  HANO.  WHEN  THSEC  IS  RE A»  IPOtoLE 
CO'Ml'ING  IS  SET  TO  FALSE.  THEREBY  TERMINATING  THE  CO  VR I L AT » ON. 


*/ 

DEC  L A 


RE  S TO  PI  T ( l GO  ) BIT(l),  (FAILSOPT,  COMPILING!  3IT11); 


DECLARE  S CHARACTER!  /*  A TE  JDORARY  USED  VAR10JS  PLACES  */ 

/»  THE  ENTRIES  IN  PRYASKCI  ARE  USED  TO  SELECT  OUT  PORTIONS  OF  CJ  ED 

°R()iVJ."  T 1 ON  S AND  THE  STACK  TOR  FOR  COMPARISON  IN  THE  ANALYSIS  AiGC.'uTH*  »/ 
DECLARE  PR-ASKIS)  r I XCD  INITIAL  (0,  0,  "FF",  " F F F p " , "FFFFF  F‘>,  "FFFF  FFFF “ I ; 

/*TH*  PROPER  SUBSTRING  CK  POINTER  IS  USED  TO  PLACE  AN  'UNDER  THE  POINT 
OF  DETECTION  OF  AN  LRPOR  D'jRINC  CHECKING.  IT  PARKS  THE  LAST  I HAR  ACTER 
SCANNED.  «/ 

DECLARE  POINTER  CHA**  ACTOR  INITIAL  (• 

• ) ; 

declare  cm  lc'.mnti ?oi  mktd  /*  count  the  calls  or-  important  pm  cedjrfs  */ 

IMA  I MID..;, 0,0,0, 3, 0,0,3,  j . 0 ■ 0 ■ I.OtOiJtV.OtO.OiOi! 

/*  RECORD  T«E  T 1 "F  3 OF  IM-’ORTAVT  -POINTS  DUPING  CHECKING  •/ 

DECLARF  CL.iC.Kl  5 I F I X F D ; 

/♦  CO  * *F  y USED  STRINGS  */ 

D-CL.-S?  *!  CH.A'ACTER  iNlTi.AU  • *),  X*  CHARACTER  INITIAL!  * •>*. 

DECLARE  PFRIOD  CHARACTER  INITIAL 

/*  Tr  'OG.-AK;  fs  USED  T WT  ‘ LK  HOU  T The  co-piles  »/ 
per  1 ARE  ! T . j,  K,  1.5  FIXED; 

CSC  l RF  TRUE  LITE°ALLY  *1',  FALSE  LItERALLV  •3»,  FOREVER  LITGRALIY  • ».HU  £ l'; 

/*  the  stacks  nfciAPcn  snow  akc  used  to  driv^  the  syntactic 

ANALYSIS  ALDUS  II  MW  AND  STORE  INFORMATION  RELEVANT  TO  THE  I NT  Cl  PRe T A I 1 CN 
OF  T HE  7FXT.  the  STACKS  ARE  ML  POINTED  TO  BY  THE  STACK  POUTER  SP.  •/ 

OT.IARF  STACK  Si  Z G l I IERALLY  *75';  /*  SIZE  OF  ST'CK  */ 

DECLARE  P AkS  E_S  TACK  (STAC  .SIZE)  3 1 T i 3 J ; y*  TOKENS  Uc  The  PART  I AcLY  PARSEC 

TFXT  */ 

C 1 C L A ' E VA3  (STACKSIZr-l  CHARACTER;/-.  EBCDIC  MAKE  OF  ITEM  0/ 

DECLAM  FiXV  { STACK  S IZ  L ) FIXED;  /»  FIXED  (NJlFRIC)  VALUE  »/ 

/*  S?  POINTS  TO  THE  RIGHT  END  Oc  THE  REDJCI3LE  STRING  IN  ThF  PARSE  STACK, 

-P  POINTS  TO  THE  LEFT  END,  AND 
PPP1  * MO+1. 

*/ 

DECLARE  (SP,  MP,  MP?1)  fixed; 

DECLARE  SAVEPFF  FIXED;  /*  REFERS  BACK  TO  A PREVIOUSLY 

itrrrKi  ikfo  i a.i r i ♦/ 
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iiS 

1 

t)LiL*4'\c  »L  l >!  l i i a !■ . * 1 

. 1 i 1 aL  I j ) ; 

1 

; 1 

456 

1 

DECLARE  LABELS  LITERALLY  *25';  /*  SIZE 

OF  LABEL  TABLE  ♦ / 

1 

i 1 

457 

1 

DECIAPE  LABIDILABELS) 

CHARACTER;  /•  LABEL  IDENTIFIER  */ 

1 

l 

453 

1 

DECLARE  IL  4STREF  , LAP, OFF)  1LABELS)  FIXED; 

/*  REST  OF  LABEL  TA3LE 

*/ 

1 

i 

459 

1 

DECLARE  T3ASIC  FIXED; 

I 

i , 

460 

1 

DECLARF  SAVEOUAD  FIXED 

» 

1 

i 

461 

1 

S.AVFQUAD2  FJXE9; 

1 

i 

462 

I 

DECLARE  NEXT QUAD  FIXED 

INITIAL  III; 

1 

i “ 

463 

1 

DECLARE  TA3LE_L0C  (STACKS^)  FIXEO;  /* 

LOCATION  OF  SYMBOLS 

J.N 

TABLES  •/ 

1 

i.  , 

464 

1 

DECLARE  SYMBOLS  LITERALLY  •190‘;  /*  SIZE 

OF  SYMBOL  TABLE  */ 

1 

i;  f 

465 

1 

OECLARE  SYM6I SYMBOLS) 

CHARACTER  ; /*  IDENTIFIER  */ 

1 

l. 

466 

1 

DECLARE  UOCAT.OEF,  SIZE,  INIT)  JSVMGOLSI  FIXED;  /•  REST  OF  SYM  31 L 

TABLE  •/ 

1 

i: 

467 

1 

DECLARE  S AWI 9(  10)  FIX 

29; 

1 

li 

468 

1 

DECLARE  SAVQUONO  FIXED 

INITIAL (01  ; 

1 

ll 

469 

1 

OECLARE  SAVIABI10I  CHi 

RAC  TER ; 

1 

12 

470 

1 

DFCLARE  SAVLARND  FIXED 

INITIAL (01  ; 

1 

12 

471 

1 

/* 

ouad  Types  */ 

1 

12 

472 

1 

DECLARE  NViPDEF  FIXF9, 

1 

12 

473 

1 

NSYMBCL  FIXF9 

INITIAL  10), 

1 

12 

474 

1 

NCONSTANT  FIXED  INITIAL  (0). 

1 

12 

475 

1 

ADD  FIXED  INITIAL 

(1), 

I 

12  \\ 

476 

• 

A 

MUL  FIXED  INITIAI 

(2). 

1 

12  jj 

477 

1 

SUB  FIXED  INITIAL 

(3  1,  *■ 

1 

12 

478 

1 

01V  FIXED  INITIAL 

(4)  , 

1 

12  8 

479 

1 

MMOD  FIXED  INITIAI 

(51  , 

1 

12 

430 

1 

HALT  FIXED  INITIAL 

(6  ) , 

1 

12. 

481 

1 

BR  FIXED  INITIAL 

(7)  , 

1 

12. 

482 

1 

BT  FIXED  INITIAL 

<91,  1 

1 

12 

483 

1 

BF  FIXED  INITIAL 

19)  , 

1 

12 

484 

1 

REL  FIXED  INITIAL 

(10)  , 

1 

12 

435 

1 

E 0 FIXED  INITIAL 

111), 

1 

12t 

436 

1 

LT  FIXED  INITIAL 

< 1 2 ) , 

1 

12E 

487 

I 

GT  FIXED  INITIAL 

(17), 

1 

12r 

483 

1 

NE  FIXED  INITIAL 

(14), 

1 

12  •. 

439 

1 

LE  FIXED  INITIAL 

<151, 

I 

123 

490 

GE  FIXED  INITIAI 

(16), 

1 

125 

491 

1 

ASSN  FIXED  INITIAL 

(17), 

1 

125 

492 

1 

SUBS  FIXED  INITIAL 

(13). 

1 

12; 

493 

1 

8Z  FIXED  INITIAL 

119), 

1 

12« 

494 

1 

AND  FIXED  INITIAL 

(20), 

I 

125 

495 

1 

OR  FIXED  INITIAL 

(21)  . 

1 

128 

496 

1 

UM1N  FIXED  INITIAL 

(22), 

1 

125 

497 

1 

ZQ  FIXED  INITIAI 

(23)  , 

I 

12  8- 

493 

1 

LAB  FIXED  INITIAL 

(24), 

I 

123< 

499 

1 

SU=L  FIXED  INITIAI 

(39)  , 

/•NEWQUAD*/ 

1 

123< 

590 

1 

T GOTO  FIXED  INITIAL 

(9)  ; 

1 

1 2 8t 

521 

1 

DECLARE  CORE  FIXED  INITIAL  10); 

1231 

502 

1 

DECLARE  SAVE1NDEX  FIXED; 

I 

1 2 It 

503 

1 

DFCLARE  LGOPLIM  FIXED 

INITIAL  (01, 

1 

128  i 

594 

1 

LOOPINC  FIXED 

INITIAL  III, 

1 

1286 

5 05 

1 

LCDP_I\DEX  FIXED  INITIAL  101; 

1 

12  16 

506 

1 

DECLARE  SAVElcr.  FIXED; 

1 

12  36 

507 

1 

DECLARE  SAVELA8  CHAPAC 

TER  ; 

1 

12  66 

503 

1 

declare  savevap  character; 

1 

1236 

509 

1 

OFCIARE  DO_SWlTfH  FIXED  INITIAL  IOi{ 

1 

1286 

519 

1 

DECLARE  ( MJl LCC , D1 VLDC 

I fixed; 

1 

12fle 

511 

1 

DFCLARE  CONSTANTS  LITERALLY  *50';  /*  SIZE 

OF  CONSTANTS  TABLE 

*/ 

1 

1266 

512 

t 

DECLARE  (CONIOC.CONVAL)  (CONSTANTS)  FIXED 

; /*  CONSTANTS  TABLE 

• / 

1 

12  36 

513 

1 

/* 

DISK.  BUFFER  FOR  OUAD 

table  ♦/ 

1 

1256 

514 

1 

DECLARE  DISAWORDS  LIT  FRALLY  •900*, 

1 

12o6 

515 

1 

MAXQ'JAOS  LITER 

ALLY  *220*, 

1 

1286 

516 

1 

QUADS  ID1 SKWORDS)  FIXED; 

1 

1236 

517 

1 

OECLARE  RCO.B'JFF  FIXFD 

INITIAL  (0); 

1 

1266 

518 

1 

DECLARE  RCD_NR  FIXED; 

1 

122  6 

519 

1 

DECLARE  LDC_QUAD  FIXEO 

1 

1 

1286 

520 

1 

OECLARE  RR_FL  AG  BITIR); 

/•NEWQUAD*/ 

1 

1 2 >i  6 
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•k  l 

l 

J : ’•  l 4 J.  ij*  - _ ■ ■ 1 1 ■ i A ' ' 1 . . 1 1 '«!.  1 . > ; 

j.  / 

522 

1 

OECLARE  H1C_L0C(2S)  FIXED; 

/•NEWOUAD*/ 

12 

523 

1 

DECLARE  BJF_MIC  CHARACTER  INITIAL! 

/*NERO'(AD*/ 

12 

524 

1*000 

0 00  0 0 0 000  0000  000  00000  0000  0000  00  0 00000  0000 

0000 

ooooocco' ) ; 

12 

525 

1 

DECLA  RE  (OPERATION1,  CPF  UNO  l .CPERAND2, RESULT  I CHARACTER 

9 

/♦NFr.O  JAJ*/ 

12 

526 

1 

OECLARE  ILAVSI  FIXED  INITIALIO!; 

/*’lh  -.OUAD*  / 

12 

527 

1 

OECIARE  VAR1SLS(40J  CHARACTERS 

/•NEROU'OV 

12 

524 

1 

DECLARE  CHANGE! 40 1 BITI8I; 

/•NF..CJAO*/ 

12 

529 

1 

DFCL  ARE  NF*f_VAR(40)  FIXEO  INITIAL 

/•NEWOUAD*/ 

12 1 

530 

1 

( 1,2, 3, 4, 5, 6, 7,8, 9, 10,11, 12, 13, 14, 15, 16. 17, 16, 19,20, 

21,22 

• /*NCWQIAJ«/ 

12fc 

531 

1 

23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35 .36, 37, 36, 39, 40  IS 

/♦’1E..0JA0*/ 

125 

532 

1 

DECIAPF  ( R 01  B1T(R); 

/•NC..OJAO*/ 

126 

533 

1 

DECLARE  ST ATUS ( 7 ) 81T|B>S 

/•VFi.OUOD*/ 

173 

534 

! 

DECLARE  AOORSSm  OITIR); 

/*NE>."5UA0*/ 

123 

535 

1 

DECLARE  SU3SFIAG  FIXED  INITIALIO); 

/♦NfnOJAJ*/ 

178 

S36 

1 

OECLARE  V ARNJR (7 1 FIXFOS 

/•'NEkOJAD*/ 

123- 

537 

1 

DECLARE  DEALL0CA8L ( 7)  BIT181; 

/*NCi«J  JA2*/ 

1 2 3c 

538 

1 

OECLARE  «EFRENCE(7)  FIXED; 

/•NCKO  JAJ*/ 

I2°c 

539 

1 

DECLARE  TEHPI7S  FIXEOS 

/•NEhOMO*/ 

128c. 

540 

1 

DECLARE  POINT! T|  FIXEO; 

/ *NEk.  C'U  AD»  / 

1236 

541 

1 

DECLARE  KAXfiFG  EIXFD  INITIAL  16); 

/♦NFhG  .’AD*/ 

1266 

542 

1 

DECLARE! ii,jj,kk,ll,nnifixeo; 

/••(E«Q  MO*/ 

12:6 

543 

1 

DECLARE  (PEFND)  FIXED  I N 1 T f AL  (0); 

/*NE  4 J j AD* / 

12  ’6 

544 

1 

OECLARE  SORTREF ( 6 ) FIXED; 

/»  NFKC.IAD*/ 

12R6 

545 

1 

DECLARE  SDRINllM(6>  FIXED; 

/♦•MwOUA-'*/ 

12-6 

546 

1 

DECLARE  REGNCH6)  FIXED; 

/♦NEWDJAO*/ 

1 2 c 5 

547 

1 

OECLARE  NEWGJAD( 900)  FIXED; 

/•NEKQJAD*/ 

12C6 

548 

J 

DECLARE  NEROUADND  FIXEO  INITIALIO); 

/*NE  r.OJAD*  / 

1206 

549 

] 

DECLARE  TEHP_CHA°  CHARACTER; 

/*NE’..  yj  AD*/ 

I28t> 

550 

1 

DECLARE(0PR70R,0RRND1 ,OPR N02, RSLT) F I XE 0; 

/•NER-UAD*/ 

17-6 

551 

1 

DECLARE  OPFR  FIXEO; 

/••|£>.D  JAD*/ 

12  36 

552 

1 

DECLARE  ALPHA (30 ) CHARACTER  INITIAL  ( • WT  AO  * « 

/•NEWQ  IAD*/ 

12  86 

553 

1 

• AOD  *, 

/•NCROJAO*/ 

12  8.6 

554 

1 

* HUL 

/6NE  nQ.JA  j*  / 

12  Pt 

555 

1 

'SUB  *, 

/*NE<*CJA~*/ 

1 7c6 

556 

! 

•DIV  », 

/•NERDUAO*/ 

1786 

557 

i 

•MOO  ', 

/*N  El.Cy  AD*  / 

1256 

554 

I 

’HALT', 

/<-NC«  : (AD*/ 

1236 

559 

i 

•BR 

/•S'rLOMD*/ 

1286 

560 

i 

•BT  • , 

/•NERO MO*/ 

1286 

561 

i 

•3F  • , 

/*NE»QJAD*/ 

1236 

562 

j 

•REL  ', 

/*N6>.C‘MD*/ 

1236 

563 

i 

•to  ', 

/•NERCJAO*/ 

1236 

564 

i 

•LT  ', 

/•NE..QJAD*/ 

12B6 

565 

i 

•GT  ', 

/*  N ER'OJ  AD*  / 

12  J6 

566 

i 

' NE  ' , 

/*NE  HDJAD*  / 

1 2 56 

56  7 

i 

•LE 

/•NCR' QUAD*/ 

1286 

56  8 

i 

'GE  », 

/•NFRODAD*/ 

1236 

569 

i 

• A s r.  N * , 

/•NSrOJAO*/ 

1 p 86 

570 

i 

'SUBS' , 

/•NtsC'MO*/ 

12*6 

571 

i 

• BZ  ', 

/•NSnO'JAP*/ 

1236 

5 72 

i 

•AND  ', 

/•NFROUAO*/ 

1286 

573 

\ 

•nR  • , 

/•NEW5UA0*/ 

1266 

574 

i 

• UM IN', 

/•NtKQ'JAO*/ 

1286 

5 75 

i 

'70  ', 

/♦NFmSJA  D* / 

1286 

576 

i 

•LAB  ', 

/•NEhOUAO*/ 

1266 

577 

i 

•RO 

/•NtxOJAD*/ 

1236 

573 

i 

* HT  ', 

/•NER0UAD*/ 

1286 

579 

I 

* ROAD • , 

/•NEHCJAO*/ 

1236 

580 

i 

• RDVR  * , 

/•NErOUAD*/ 

1286 

581 

i 

'ASL 

/•NEWOUAD*/ 

1286 

532 

583 

584 

585 
536 

i 

i 

i 

i 

• SJBL • ) S 

/•NEWOUAD*/ 

1286 

1206 

12S6 

1286 

1286 

¥ 
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> 1 1 

58S  I 

/•  PROCEDURES 

•/  I 

1 . o 
12»6 

58  7 I 

1 

12  86 

590  | 

1 

126o 

591  | 

1 

1236 

593  |MO: 

1 

1286 

593  | 

PROCEDURE  (STRING,  WIDTH)  CHARACTER; 

1 

1286 

594  | 

OECLARE  STRING  CHARACTER,  (WIDTH,  l)  FIXED; 

1 

1266 

PAD 

595  | 

1 

1294 

PAJ 

596  | 

L » LENGTH(STRING); 

1 

1204 

PAD 

597  | 

if  t >•  width  then  rftjsn  string; 

1 

1316 

PAD 

593  1 

ELSE  RCTURN  STRING  II  SURSTR(X70,  0,  WIDTH-L); 

1 

133S 

PAD 

599  | 

END  PAD; 

1 

1390 

PAD 

600  | 

1 

1396 

601  |1 

.FORMAT ; 

1 

1396 

60?  1 

PROCEOURE  (NUM3ER,  WIDTH)  CHARACTER; 

1 

1396 

603  | 

DECLARE  INJMBER,  WIOTH,  L)  FIXED,  STRING  CHARACTER; 

1 

1396 

I.ECP.MA 

604  | 

1 

1404 

i~f  0Rw a 

605  | 

STRING  » NUMBER; 

1 

1434 

I~FQPM« 

606  1 

L ■ LENGTH! STRING) ; 

1 

1423 

I_FGR  4 A 

607  | 

IF  L >«  WIOTH  THEN  RETURN  STRING; 

J 

1442 

l.FCRM V 

603  | 

ELSE  RETURN  SUBSTPt  X70,  0,  WIDTH-U  11  STRING; 

1 

1464 

I_F  0RM4 

609  1 

END  l.FOR  NAT; 

1 

1516 

I.FORMA' 

610  | 

J 

1522 

611  | ERROR: 

1 

1522 

61?  1 

PROCEDURE  1 MSG*  SEVERITY); 

1 

1522 

613  1 

/»  PRINTS  AND  ACCOUNTS  FOR  ALL  ERROR  MESSAGES  */ 

1 

1522 

ER'-'OR 

614  | 

/*  IF  SEVERITY  IS  NOT  SUPPLIED,  0 IS  ASSUMED  */ 

1 

1522 

ERROR 

615  | 

OECLARE  MSG  CHARACTER,  SEVERITY  FIXED; 

1 

1522 

ERROR 

6)6  | 

ERROR.COUNT  = ERROR_COUNT  ♦ 1; 

1 

1530 

E RRC® 

617  | 

/•  IF  LISTING  IS  S o°PRESSED,  FORCE  PRINTING  OF  THIS 

LINE 

*/  1 

1542 

ERROR 

618  ] 

IF  ■»  fONTROLI  P.YTEI  '1  • ))  THEN 

1 

1542 

ERROR 

619  1 

OUTPUT  = I_FDRM.\T  (CARD.CCUNT,  4)  II  • 1'  11  3 Uf  E E R 11 

•1  •;  l 

1556 

ERROR 

620  1 

OUTPUT  « SUBSTRING  IN TER,  TEX T_L I MI T-CP*MA RG IN_CHOP) 

• 

1 

1650 

EKRDR 

621  1 

OUTPUT  » •***  ERROR,  • II  MSG  II 

1 

16  98 

ERROR 

622  1 

•.  LAST  PR  E V IU JS  ERROR  WAS  DETECTEO  ON  LINE 

• II 

l 

1718 

ERROR 

623  | 

PREVIOUS.ERROR  1)  •.  ***' ; 

1 

1734 

F.RROR 

624  | 

PREVIOUS_FRROR  « CAR D_COUNT ; 

l 

1792 

ER“OR 

625  1 

IF  SEVERITY  > 0 THEN 

l 

1800 

ERROR 

626  | 

IF  SEVERE_ERRORS  > 25  THEN 

l 

182  0 

ERROR 

6?  7 | 

DO; 

l 

13  32 

ERROR 

623  | 

OUTPUT  » •***  TOO  MANY  SEVERE  ERRORS,  CHECKING  A BOR  TED  ***•;  1 

1 C?4 

ERROR 

629  | 

COMPILING  « false; 

l 

1644 

ERROR 

6?0  1 

END; 

l 

1853 

ERROR 

631  | 

ELSE  SEVERE.ERRORS  « SEVERE.ERRORS  ♦ 1; 

1 

1853 

EP.ROR 

632  1 

ENO  ERROR; 

l 

1 866 

ERROR 

633  1 

1 

1872 

634  | 

1 

1672 

635  1 

1 

187? 

636  | 

l 

1872 

637  1 

1 

1872 

638  1 

l 

1372 

639  | 

/*  CARO  IMAGE  HANDLING  PROCEDURE 

• / l 

1372 

640  | 

l 

1872 

641  I 

1 

1872 

642  ICET.CARO: 

1 

1872 

643  1 

PROCEDURE; 

l 

16  72 

644  | 

/•  DOES  ALL  CARD  READING  AND  LISTING 

• / l 

1872 

GET_CARI 

645  | 

DECLARE  I FIXED,  (TEMP,  TEMPO,  RESTI  CHARACTER,  READING  BITU);  1 

1372 

GET.CARf 

646  1 

BUFFER  * INPUT; 

1 

1883 

GET.CARl 

647  1 

IF  LENGTHIBUFFER)  « 0 THEN 

1 

1942 

GET.CAR. 

643  | 

DO;  /•  SIGNAL  FOR  EOF  */ 

1 

1976 

GE  T_C  AS. 

649  | 

CALL  ERROR  I • EOF  MISSING  OR  COMMENT  STARTING 

IN  COLUMN  l.*,l);l 

1963 

OET.CAR 

65  0 | 

BUFFER  » PAD  (•  /•••/*  •/  EOF  ;END;EOF •, 

60  ; 

1 

1963 

GE  T_C  AP 1 

651  1 

END; 

1 

2012 

GET.CArii 

65?  | 

FlSE  CARD.CniJNT  « CARD.COUNT  4 1;  /*  USFO  TO 

PRINT 

ON  LISTING  •/  | 

7312 

GFT_E  API 

V - 
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IF  '1  Ak  01  \_CHij1*  > 0 1 * l : 1 ^ 

00;  /*  THE  MARGIN  CONTROL  FROM  DOLLAR  */ 

I * LENGTH! BUFFER  I - MARG!N_CHOP; 

REST  « SUBS  TR { 8Uf  F ER  » II; 

BUFFER  - SUBSTF;  l BUFFER,  0,  I); 

ENO; 

ELSE  REST  = 

TEXT  - BUFFER; 

TEXT_LIMIT  « LENGTH! TEXT!  - 1; 

IF  CONTROL! BYTF< • M*  ) I THEN  OUTPUT  * BUFFER; 

ELSE  IF  CONTROL  (BYTFl’L*))  THEN 

OUTPUT  « I_FORMAT  (CARD_COUNT,  41  II*  I*  II  BUFFER  11  *|‘  II  REST; 
CP  = o; 

ENO  GET_C ARD; 


THE  SCANNER  PROCEDURES 


CHAP: 

PROCEDURE; 

/*  USED  FOR  STRINGS  TO  AVOID  CARD  BOUNDARY  PROBLEMS  */ 
CP  = CP  ♦ 1; 

IF  CP  TFXT.LIMIT  THEN  RETURN; 

CALL  GET.CARO; 

END  CHAR; 


SCAN: 

PROCEDURE; 

DECLARE  (SI,  S?)  FIXED; 

CALLCUUNT  t 3 ) * CALLC HUNT  I 3 ) ♦ 1; 

FAILSOFT  * TRUE; 

BCO  «=  NUMdER_ VALUE  « 0; 

SCAN l : 

DC  FCREVFR; 

IF  CP  > T FXT_L III T THEN  CALL  GET_CARD; 

ELSE 

DO;  /*  DISCARD  LAST  SCANNED  VALUE  */ 

text_l:mit  = tfxt_lim:t  - cp; 

TEXT  « SUBSTRITEXT,  CP); 

CP  ■ 0; 

END; 

/•  BRANCH  ON  Nr  XT  CHARACTER  IN  TEXT  */ 

DO  CASE  CHARTYPEIBYTEITEXT1I; 

/*  CASE  0 •/ 

/*  1 1 LEGAL  CHARACTERS  FALL  HFR E •/ 

CALL  ERPDP  (‘ILLEGAL  CHARACTER:  • II  SUBSTRITEXT,  0,  111; 
/•  CASE  l */ 

/•  BLANK  •/ 

oo; 

CP  » l; 

00  WHILE  BYTE!  TEXT , CPI  » BYTE  I • 1 I UP  <•  TEXT.LI  I IT ; 

CP  * CP  ♦ lJ 
END; 

CP  « CP  - l; 

END; 

/•  CASE  2 •/ 

S /•  NOT  USED  IN  SKELETON  (BUT  USED  IN  XCOM)  */ 


SCAN 
SCAN 
SCAN 
SCAN  . 

SCAN 

SCAN 

SCAN 

SCAN 

SCAN 

scan 

SCAN 

scan 

SCAN 

SCAN 

SCAN 

SCAN 

SCAN 

SCAN 

SCAN 

SCAN 

SCAN  CASE 

SCAN 

SCAN 

SCAN 

SCAN 

SCA.s  CASE 
SC  AN 

SCAN  C8  - 

SCAN 

SCAN 

SC  * N 

SCAN 

SCAN 

SCAN 

SCAN 

SCAN  CASE 


■*%- 
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719  I 

/«  CASt  3 •/ 

1 2c  -9 

Vn.  1 

720  | 

1 26  66 

SCAN 

721  1 

; /*  NOT  USED  IN  SKELETON  1 BUT  USED  IN  XC0*<1  */ 

1 2666 

SCAN 

722  1 

1 2670 

SCAN 

CASE 

723  1 

/•  CASE  * */ 

1 2670 

SCAN 

72*  1 

1 26  70 

SCAN 

725  | 

00  FOREVER;  /*  A LETTER:  IDENTIFIERS  AND  RESERVED  WOR.SC  */ 

1 26  76 

SCAN 

726  | 

00  CP  * CP  ♦ 1 TO  TEX T_ LIMIT  ; 

1 26  7* 

SCAN 

CASE 

727  | 

IF  NOT_LE  TT  ER_0R_D1 SI  T ( 3YTE1 TEXT , CPU  THEN 

1 271* 

SCAN 

729  1 

DO;  /*  FNO  OF  IDENTIFIER  */ 

1 2726 

SCAN 

720  1 

IF  C P > 0 THEN  BCO  = SCO  11  SU8STR  ( TEXT  t 0,  IP); 

J 2736 

SCAN 

730  1 

SI  * LENGTHI6CD1; 

1 2790 

SCAN 

731  | 

IF  SI  > 1 THEN  IF  SI  <=  RESERVE D_l I M I T THEN 

1 2812 

SCAN 

732  1 

/*  CHECK  FOR  RESERVED  WORDS  */ 

1 28** 

SCAN 

733  1 

00  I » V_IN0EXI Sl-l)  TO  V.INDEXISI)  - 1; 

1 28** 

SCAN 

73*  1 

IF  BCO  = VIII  THEN 

1 2392 

SCAN 

735  1 

DC; 

1 29*2 

SCAN 

736  { 

TOKEN  «=  I; 

1 293* 

SCAN 

737  1 

RETURN; 

1 29*2 

SCAN 

738  | 

END; 

1 29*3 

SCAN 

730  | 

END; 

1 29*8 

SCAN 

7*0  1 

/*  RESERVED  WORDS  EXIT  HIGHER:  THEREFORE  <11  ENT IFI ER>*/J  2952 

SCAN 

7*1  1 

TGKCN  = IDENT; 

1 2952 

SCAN 

7*2  1 

RETURN; 

1 2963 

SCAN 

7*3  1 

END; 

1 2966 

SCAN 

7**  1 

end; 

1 2966 

SCAN 

7*5  1 

/*  END  OF  CAPO  */ 

1 2970 

SCAN 

7*6  1 

BCD  « BCD  1 1 TEXT; 

1 2970 

SCAN 

7*7  1 

CALL  GET_C ARD; 

| 299* 

SCAN 

1 

CP  » -l; 

1 2993 

SCAN 

1 

END; 

1 3006 

SCAN 

750  | 

1 3010 

SCAN 

751  | 

) 3010 

SCAN 

752  | 

/•  CASE  5 */ 

1 3010 

SCAN 

753  | 

1 3010 

SCAN 

75*  1 

00;  /*  DIGIT:  A NUMBER  •/ 

1 3310 

S v -A  N 

755  | 

TOKFN  = NUMBER; 

.1  301* 

SCAN 

CASE 

756  | 

DO  FOREVER; 

1 3022 

SCAN 

757  | 

DO  CP  = CP  TO  TEXT_L I MIT ; 

1 3022 

SCAN 

753  | 

SI  = BYTE (TEXT,  CPI; 

1 3 05  6 

SCAN 

759  | 

IF  SI  < "FO"  then  return; 

1 307* 

SCAN 

760  | 

NUM9=R_VALUE  « 10*NJMBER_ VALUE  ♦ SI  - "FO"; 

1 3092 

SCAN 

77  1 | 

END; 

1 3112 

SCAN 

762  1 

CALL  GET.CARD; 

1 3115 

SCAN 

763  | 

END ; 

1 3120 

SCAN 

76*  1 

END; 

1 312- 

SCAN 

765  1 

1 312* 

SCAN 

766  1 

/*  CASE  6 */ 

1 312* 

SCAN 

767  | 

1 312* 

SCAN 

769  | 

DO;  /*  A /:  MAY  BE  OlVIDE  OR  START  OF  COMMENT  */ 

1 312* 

SCAN 

759  | 

CALL  CHAR; 

1 3128 

SCAN 

CASE 

770  1 

IF  BYTE  ( TEXT  ( CP)  -*  BYTEC**!  THEN 

1 3132 

SCAN 

771  1 

DO; 

1 3160 

SCAN 

772  I 

TOKEN  = OlVIDE; 

1 315? 

SCAN 

773  J 

RETURN; 

1 3160 

SCAN 

77*  | 

end; 

1 3(66 

SCAN 

775  1 

/•  WE  HAVE  A COMMENT  */ 

1 3166 

SCAN 

776  | 

SI.  S2  * BYTE!*  ■); 

1 3166 

SCAN 

777  | 

DO  WHILE  SI  -•«  BYTE  l * * ' I 1 S2  -»  B YTE 1 * / * I ; 

1 3178 

SCAN 

778  1 

IF  SI  * BYTE  1 * J* ) THEN 

1 3228 

SCAN 

779  | 

DO;  /*  A CONTROL  CHARACTER  •/ 

1 32*8 

SCAN 

780  1 

CONTROL i S2 1 * - CONTROL ( S2 1 ; 

1 32*0 

SCAN 

781  | 

IF  S2  * BYTEC ' T • 1'  THEN  CALL  TRACE; 

1 3262 

SCAN 

« 

ELSE  IF  S2  - BYTE  I • J*  J THEN  CALL  UNTRACE; 

1 3269 

SCAN 

> | 

ELSE  IF  S2  « BYTEC  1 * I THEN 

1 3318 

SCAN 

78*  ) 

IF  fO:irpni(S2)  TIIFN 

| 33-2 

SCAN 
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7 di  | 

f4kiI.H_CH.il*  = 1 C X 1_L  I M 1 T - CR  ♦ l; 

1 

3 »■>>; 

SLA  . 

706  | 

ELSE 

1 

3 364 

SCAN 

787  | 

HARGIN_CH0P  « 0; 

1 

3364 

SCAN 

700  | 

END; 

1 

3374 

SCA  1 

739  | 

SI  * S2 ; 

1 

3374 

SCAN 

790  | 

CALL  CHAR; 

1 

3332 

SCAN 

791  1 

S2  * BYT E (TEXT , CPI ; 

1 

3 3 36 

SCAN 

797  | 

. END; 

1 

3402 

SCAN 

790  | 

END; 

1 

3406 

SCAN 

796  J 

1 

3406 

SCAN 

795  | 

/•  CASE  7 •/ 

1 

3406 

SCAN 

796  | 

DO;  /*  SPFCIAL  characters  ♦/ 

1 

3406 

SCAN 

797  | 

TOKEN  - TX ( 5VT E< TEXT ) 1 ; 

3410 

SCAN  CASE  7 

793  | 

CP  « IS 

1 

3430 

SCAN 

799  j 

RETURN; 

1 

3438 

SCAN 

000  | 

..  end; 

1 

3444 

SCAN 

801  | 

1 

3444 

SCAN 

802  | 

/*  CASE  8 */ 

1 

34  44 

SCAN 

803  | 

; /*  NOT  USED  IN  SKELETON  (BUT  USED  IN  XCOM)  */ 

1 

3444 

SCAN 

806  | 

1 

3448 

SCAN  CASE  3 

8C5  1 

END;  /•  OF  CASE  ON  CHARTYPF  */ 

1 

3448 

SCAN 

806  J 

CP  = CP  ♦ 1;  /*  ADVANCE  SCANNER  AND  RESUME  SEARCH  FDR  TOKrf  */ 

1 

3452 

SCAN 

end; 

1 

3464 

SCAN 

ENO  scan; 

1 

3463 

SCAN 

809  1 

1 

3474 

810  | 

1 

3474 

811  | 

1 

3474 

812  | 

1 

3474 

813  | 

1 

34  74 

816  i 

/*  ' TIME  AND  DATE  */ 

1 

34  74 

815  1 

1 

3<*74 

816  | 

1 

3474 

817  ! 

PRINT_T 1«E; 

1 

3474 

818  I 

PROCEDURE  (MESSAGE,  T»; 

1 

34  74 

819  1 

DECLARE  MESSAGE  CHAPACTFR,  T FIXED; 

1 

3474 

PRI NT.TIME 

820  1 

. MESSAGE  = MFSSASE  It  T/360000  II  JJ  T MOD  360000  / 6000  l|  •:• 

1 

34  SC 

PR  I NT_T I “ E 

821  | 

| J T MOD  6000  / 100  II 

1 

35S0 

PR! NT_T IME 

822  1 

T * T MOD  100;  /*  DECIMAL  FRACTION  */ 

1 

3662 

PR  I NT_T I ME 

823  1 

IF  T < 10  THFN  MESSAGE  « MESSAGE  II  »0‘; 

1 

3680 

PR  I NT_T  I »:F 

826  | 

OUTPUT  * MESSAGE  II  T I I » .*  ; 

1 

3716 

PRI NT_TIME 

825  | 

END  PR  J NT_T  1 ME ; 

1 

3773 

PRINT_T1ME 

826  | 

1 

3784 

827  1 

PRINT_DATE_ANO_T IME: 

1 

37S4 

828  | 

PR0CE9JR E (MESSAGE,  0,  T>; 

1 

3784 

829  | 

DECEASE  “ESSiGE  CHARACTER,  ID,  7,  YEAR , DAY,  M)  FIXED; 

1 

3 7 64 

PR]  NT_OAT  E. 

830  1 

DECLARE  MONTHUU  CHARACTER  INITIAL  ('JANUARY*,  '.FEBRUARY*,  ‘MARCH*. 

1 

3792 

PRI  NT_^A1  C. 

831  1 

•APRIL*,  ‘MAY*,  'JUNE*,  'JULY*,  *AuGUST',  *SEPTEM3ER* , 'OC.OBER', 

1 

379? 

PR  i NT.DAT11 

832  I 

•NOVEMBER*,  'DECEMBER*), 

1 

3792 

PR  I N I_DA  I A 

833  f 

OA VS ( 12)  FIXFD  INITIAL  (0,  31,  60,  91,  121,  152,  1B2,  213,  246,  274, 

1 

379? 

PRVitI  )AT  c 

836  | 

305,  335,  366) ; 

1 

3792 

PG1NT_DAT  r. 

835  1 

VFAP.  » n/1000  ♦ 19C0; 

1 

3 792 

PAINT_0AI  E. 

836  | 

OA Y » D MOD  1000; 

1 

3812 

TR  I N T_U4 T E. 

837  | 

IF  (VEAF  t **3**I  0 THEN  IE  DAY  > 59  THEN  DAY  » DAY  ♦ 1 ; /*  LEAP  YEAR*/ 1 

3330 

PRINT_0AT=. 

e 38  1 

N « 1; 

1 

3670 

PRINT.OATE. 

839  | 

DO  WHILE  DAY  > OAYS(M);  M « M ♦ l;  END; 

1 

3378 

PRINT_OATE. 

860  | 

CALL  PRI NT_T IMEIMESSAGE  II  MONTH(M-l)  ||  XI  ||  0 AY-DAYS ( M- 1 ) ||  * 

1 

3914 

PR  I NT_OAT c. 

1 | 

11  YEAR  ||  *.  CLOCK  TIME  ■ *,  TIJ 

1 

4002 

PRINT.DATF. 

2 1 

END  PRINT_DATE_AND_T IME ; 

1 

4074 

PRI  NT_DATE. 

863  1 

1 

4080 

866  1 

/•  INITIALIZATION 

*/l 

4C80 

865  | 

1 

4080 

866  1 

1 

4080 

867  | 

1 

4080 

863  1 

INITIALIZATION: 

1 

4080 

869  1 

PROCEDURE; 

1 

4080 

850  1 

r im  pagfs 

1 

408.0 

INI  II  A|  J?  A 
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' ■% 

1 

C *.L  L rN  i » ^i/  ; » rt  1*  i'L  ^ LU  ..'  1 L r:  1 t'.t;  ,*  .JPi  i / 2«j  - L 

- of  * 1 i 

i i 1 

1 > 1 ' 1 Li.. 

85  2 

I 

WEST  AND  OF  WILLIS  ON  • ,OATE_OF_GENER AT  ION, TI  ME_OF_GEN£f<AT  I CN ) i 

4112 

I N IT  I AL  1 7 A 

853 

1 

OOJBLE.SPACC; 

414C 

INI  It  ALI  ZA 

85<i 

1 

CALL  PRINT_DATE_AND_TIME  t'TODAY  IS  •»  OATE.  TI ME  1 ; 

4164 

INITIAL)/.; 

855 

1 

DOUBLESPACE: 

4214 

IN?  T I At.  I 7 A 

856 

1 

00  1 1 -«  l TO  MAXREG: 

/•NEhQUAD*/  | 

42  3 B 

INITIALIZE 

857 

1 

STATUS! Ill  * FALSE; 

/*N  criQU AO*/  | 

4282 

INITIALIZE 

850 

1 

A00PSSII1I-FALSE; 

• /♦NEWQUAD* / | 

429? 

IM  Ti  ELIZA 

850 

1 

ENO; 

/♦NEwQUAO*/  | 

4302 

INI T I At  1 ZA 

860 

1 

no  i * i to  nt; 

; j 

4310 

INITIAL  U A 

861 

1 

S « veil; 

J 

4346 

IN! TI Al  IZ A 

86? 

1 

IF  s * *< NUMBER? * THEN  NUMBER  * J;  ELSE 

4362 

INI IIALlZt 

863 

1 

IF  S = ^IDENTIFIER?*  THEN  IOENT  - I;  ELSE 

4412 

INITIAL!/- 

866 

1 

IF  s * •/•  THEN  DIVIDE  = 1;  ELSE 

4470 

INITIALIZE 

865 

1 

IF  S « *_|_*  THEN  EOF  I LE  = 1;  ELSE 

4528 

im  iializ; 

866 

1 

IF  S * THEN  STCPITUI  - TRUE;  ELSE 

45  Be. 

INI  TI  u IZ ; 

867 

1 

* ■ 

• 

i t 

464  6 

1NITI  Al  1 L A 

86  8 

1 

e.NO; 

! | 

4656 

INITIALIZE 

860 

1 

IF  IOENT  = NT  THEN  RE SERVEO_L I MI T = LENGTH! VI  NT-1 ) 1 ; 

a | 

4664 

INITIALIZE 

870 

1 

ELSE  RESERVED  LIMIT  = L EN3TH ( V 1 NT ) > ; 

\ 1 

4718 

IM  TIALIZE 

871 

1 

VlEOFllE)  = • EOF* ; 

1 I 

4760 

initialize 

872 

1 

STOP  IT (EOF ILE)  = TRUE; 

4776 

initial iz; 

87? 

1 

CHARTTPE  I 6VT  El  * ’ll  = !,* 

47n6 

INITIALIZE 

8 76 

1 

DO  I = 0 Tfl  255;  «• 

4800 

INITIALIZE 

E75 

1 

NOT_LETTFR_OR_OIGITI I)  * TRUE  ; 

4534 

INITIALIZE 

876 

1 

END; 

4346 

INITIALIZE 

877 

1 

DO  I = 0 TO  LENGTH! ALPHABET)  - l; 

4654 

INITIALIZE 

876 

1 

J « BYTE! ALPHABET,  l ) : 

4016 

INITIAL  II*. 

8 79 

J 

Txiji  = I; 

4934 

I N 1 T I All  Z *• 

800 

1 

NOT_LETTER_OR_DIGIT( Jl  = FALSE; 

4046 

INI  i ULl  l A 

801 

1 

CHARTYPEIJI  - 4; 

4956 

l M 1!  AL  I Z 4 

832 

1 

END; 

4 96  3 

INITIAL IZ A 

3 

1 

00  1 * 0 TO  9; 

4076 

initialize 

.4 

f 

J « BYTE! *0123456789* , II; 

5010 

INITIALIZE 

885 

1 

N0T_LETTER_0R_D1G1T! J ) » FALSE; 

5026 

IM  TI  ALI/.A 

886 

1 

CHART  YPE  ( J 1 = 5; 

5036 

INI TI4LIZA 

887 

1 

END; 

5048 

IN  IT  I AL IZA 

883 

1 

DO  1 = V_INDEX(OJ  TO  V.lNDEXll)  - 1; 

3056 

INITIALIZE 

800 

1 

J = BYTEiViril; 

5114 

initialize 

800 

1 

TX(  Jl  = | ; 

5136 

ini r i al  i z ; 

891 

1 

CHARTYPE(J)  - T; 

514  6 

INITIALIZE 

802 

1 

end; 

5160 

ini iializ a 

803 

I 

CH ARTYPE 1 BYTEI • / * 1 1 = 6; 

5163 

INITIALIZE 

894 

1 

/*  first  SET  UP  GLOBAL  VARIABLES  CONTROLLING  SCAN,  THEN  CALL 

IT  ♦/  I 

5180 

INITIALIZE 

po<; 

1 

C»  = 0;  7EXT_Ll MI T = -l; 

5180 

initialize 

896 

1 

TEXT  = • * ; 

5104 

initialize 

897 

1 

CONTROL! 8YTFI*L* »»  * TRUE; 

5200 

INITIALIZE 

808 

1 

CALL  SCAN; 

6212 

INI TI AL IZA 

809 

1 

5215 

INITIAL IZA 

900 

1 

/»  INITIALIZE  THE  PARSC_STACK  */ 

5216 

initialize 

901 

1 

SP  - 1;  PARSE_STACKI SP»  « EOF IL  E ; 

5216 

INITIALIZE 

902 

1 

i ) 

5236 

INITIALIZE 

903 

1 

END  initialization; 

5236 

INITIALIZE 

904 

1 

5242 

905 

1 

5242 

906 

1 

524? 

907 

1 

524? 

903 

1 

5242 

909 

1 

5242 

91  0 

1 

DUMP  IT  : 

5242 

oil 

1 

PROCEDURE;  /•  DUMP  OUT  THE  STATISTICS  COLLECTED  DURING  THIS 

AJN  •/  ) 

524? 

912 

1 

ooublf_space: 

5242 

DJMPI T 

913 

1 

/•  PUT  OUT  THE  ENTRY  COUNT  FOR  IMPORTANT  PRDCFOURES  */ 

527S 

OUMPl T 

914 

» 

i i 

5278 

OUMPIT 

915 

1 

OUTPUT  - 'STACKING  DECISIONS-  * M CALLCOUNT  ( 1 ) ; 

5278 

OUMPl T 

916 

1 

OUTPUT  - 'SCAN  -'ll  CALLCOUNT 131; 

533? 

DUMP! T 

L 
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4 

6 Jl'u)  = Srxj/vG  AREA  * * Ji  FREcLUII  - ExEcJ/.jt; 

3)t(o 

uu  ;pj  i 

<? 

END  OUMPIT; 

5436 

OJMP IT 

919 

5442 

929 

5442 

921 

ST  ACK_DUN? : 

5442 

922 

PROCEDURE; 

544P 

923 

DECLARE  LINE  CHARACTER; 

5442 

ST  ACK.DUY 

924 

LINE  « ‘PARTIAL  PARSE  TO  THIS  POINT  IS:  •; 

1 

5454 

5740x100“ 

925 

DO  1 * 2 TO  SP; 

5462 

stac«_ru*: 

926 

IF  LENGTH! LINE)  > 105  THEN 

i 

5506 

SI  AC*_0J J 

927 

00; 

| 

5548 

5 T Al  K_DUY 

929 

DUTPUT  - LINE; 

1 

5540 

STAC<_Di)y 

929 

LINE  « X4; 

1 

| 

5560 

STAC<Ioj“ 

9 33 

END; 

5668 

S T ACK_OJ  *. 

931 

LINE  » LINE  1]  XI  It  V(PARSE_STACK(I)J  ; 

5568 

STACK_DUY 

932 

END; 

5622 

STACK_DU'‘ 

933 

OUTPUT  » LINE; 

563C 

STACK_OuB 

934 

ENO  STACK_DUHP; 

5o50 

ST  ACK_D:Jm 

935 

5656 

936 

5656 

937 

SET_SIT;PROCEOURF (LOCI ; 

/*NE W2JAD*/  J 

5656 

938 

5656 

SET  BIT 

939 

/•sft_bit  set  bit  at  location  loc  of  nicroworo  */ 

565b 

St  T_P. I T 

940 

1 

5656 

SE  T_3 1 T 

941 

DECLARE  LOC  FIXED; 

/♦.NcWCJAD*/  | 

565e 

SEI.BIT 

942 

BYTE  ( BUF_MIC  ,LOC  l="F 1" ; <- 

/4.NEW0JAD*/  J 

5668 

SFT_51 T 

943 

f N3  ; 

/•NFWOUAD*/  1 

5684 

SE  T_8 1 T 

944 

SET_F IE LO: PROCEDURE! VALUE t LOCI. L0C2I ; 

/•NEkCJAD*/  | 

5640 

945 

5o  40 

SET_FI EL. 

944 

/*SET_F!cLD  SET  BITS  AT  LCC AT I ON  LOCI  TO  L0C2  TO  THE 

given  value; 

*/ 

569  0 

SE  T_F  I E *_ r- 

947 

'» 

5690 

SET  c I EL  ” 

94  8 

DECLARE  (VALUE, LOCI, L0C2, A, B)  FIXED; 

1 

7*NE  WCUAD* / 1 

5690 

SET_FI CL. 

949 

A»0; 

1 

/*.NEW3UAD»/  1 

57D2 

SET  c I F l' 

''50 

00  3 = L DC  1 TO  LOC 2; 

/♦NEWC.JAD*/  1 

5708 

SET_FIEl. 

51 

IF  VALUE  MOD  2 = 1 THEN  DO; 

1 

/•NCW3U4D* / | 

5752 

SET_FI EL: 

952 

PYTE(8UF_*IC,lOC2-Al="FI”; 

• 

/•NEwOUAD*/  J 

5778 

SE  T_F  I ELr 

953 

END ; 

/♦•N  l * AD* / 1 

5793 

SET_rIEL: 

954 

A*A»l ; 

/•NEhQJAD*/  | 

5798 

St T_F I CL. 

955 

V4LU£-*V4LUE/2; 

/•NEW3JAD*/  | 

5810 

set_f:el. 

956 

END ; 

/•NEWCJAO*/  | 

5826 

SET_FIFL 

95  7 

END; 

1 

/•NEwO'JAD*/  | 

5834 

SET.FIELi 

953 

PUT_MIC: PROCEDURE (LOCATION); 

/•NE  WOJAO*  / | 

5940 

959 

5840 

PUT_M IC 

963 

/• ?UT_W IC  PRINT  OUT  NICROWORO  AND  REINITIALIZE  IT  TC 

All  ZEKC  •/ 

5540 

Pct.NIC 

961 

564  0 

put_mic 

962 

OECLARF  BLKl 16 t FIXED  INITIAL 

i 

/•NEwDUAD*/  i 

5840 

pji_-i;c 

963 

<3,5 ,8, 10, 12, 14, 18,23,27,33,38,43,46,48,54,59 ,64) ; 

/•NEYCIAD*/  | 

5352 

PUT.VIC 

964 

OECLAPC  (LOCATION, A, B)  FIXED; 

/•NCWOJAO*/  | 

5552 

PUT_NIC 

965 

OECLARE  ADi>P  ESS  CHARACTER; 

/♦NEWOUAO*/  | 

5852 

PUT_N1C 

966 

ADDP  FSS  = * •; 

/♦Nt«DU40*/  | 

5 352 

PJT_MIC 

96  7 

00  A=J  TO  3; 

/•NFWDJAD *f  i 

5 96  0 

PUT_"M  C 

96  8 

B*LOCATICN  NOD  3; 

1 

/*NE«CUAO*/  | 

5 3 36 

PJT_“j  C 

949 

A DOPE  S S=  8 I 1 ADDRESS; 

/•nEkOJAU*/  1 

5914 

PJT_N1C 

97  0 

LDCAT 1 ON*LOC ATI  ON/8 ; 

/•NER0JA3*/  | 

5946 

PU1_M] C 

971 

END; 

/•NEWCJAD*/  | 

5962 

PUT_3IC 

972 

OUTPUT  13 )« • • 1 1 ADDRESS M BJF.MIC ; 

« 

/•NF«3JAD*/  1 

5410 

PUT_NJC 

973 

00  A*0  TO  72; 

, 

/•NELOUAD*/  1 

6 04’, 

PUT.NI C 

974 

BYTE  I B JF_M1C , A )«”F0" ; 

• 

/ *Nf  a DU  AD*/  j 

6075 

P‘UT_M1  C 

975 

END; 

/*NE»3U»0*/  1 

6094 

PJT  MIC 

976 

00  A«D  TD  16; 

/♦NFWOUAD*/  | 

6102 

PuT.MIC 

977 

BYTE( RJF_MIC,BLK(A))«"40«; 

/♦NEWOJAD*/  | 

6136 

i>JT_-UC 

978 

END; 

/•NEhOUAD*/  | 

6160 

PUT  MIC 

977 

END; 

/•NEWOUAD*/  1 

6168 

PUT.MIC 

980 

OUT_NIC {PROCEDURE ; 

/•NEWOJAD*/  | 

6174 

981 

\ 

6174 

o 

c 

— i 

» 

* 

O 

912 

/•DUT.NIC  SFT  NEXT  AnDPESS  flElD  OF  NKROWDRO  •/ 

I 

6)74 

iiijT  mjc 
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IF  BR_FLAG*TRU£  C NEWOUADI I l*9l*BR  THEN  00;  ; /*UfcW0UAD*/ 

Ll-NEWOUADI  U*7);  , /*NEh3 JAD*/ 

CALL  SET_F1EL0(MIC_L0C(LL),65,72)  ; /*NE,:0J4D*/ 

E NO  ; 1 /*NEWC UAD*/ 

ELSE  /*Nf  ..OJA'i*/ 

•CALL  SET_F!EL0ICURR_MIC*1,65.72):  ' /*NE „3 JAJ* / 

BR_F LAG* FALSE  ; /*  NEWOJ  AD* / 

CALL  PUT_MICICURR_MIC);  /*  NE  «QU AJ* / 

CURR_MIC*CURR_MIC*l ; /*NEWQUAD*/ 

END;  /*NEWOJAO*/ 

R0_PLUS2_RE AO: PROCEDURE;  /•NtrQUAO*/ 

/*R  0_  PL  US  2_R  E A 0 GENERATE  A MICROWORO  TO  INITIATE  AREAO  OPERATION 

ANO  UODATE  RO  BY  2 */ 


CALL  SET. 
CALL  SET. 
CALL  SET 
CALL  SET. 
CALL  SET. 
CALL  SET 
CALL  SET. 
CALL  SET. 
CALL  SET 
CALL  SET. 
CALL  SET 
CALL  SET. 
CALL  SET. 
CALL  SET 
CALL  SET. 
CALL  SET. 
CALL  SET. 
CALL  SET. 
CALL  CUT. 
ENO; 

R 3_UN  I BUS  : 


BITIOI; 

BIT  n ) ; 

BIT (21; 
BITI6); 
BITC7); 

BIT  111); 

« IT (131 ; 
BIT  1171 ; 
BIT  129) ; 

B1T02)  ; 
BIT! 361  ; 
BIT  I 39  I ; 
BIT (601 ; 
BIT (91  I ; 
BIT (921  I 
317(991 ; 

9 I T I 97)  ; 
BIT (SB)  ; 
RIC ; 

PROCEDURE; 


/ *■•*(  E'UO  J AO*/ 
/♦NEWQUAD*/ 

/♦newqjaj*/ 

/*N E •)£  J AD*  / 
/♦NEi.G'JAO*/ 
/*NCh3UA0*/ 
/»NE«JJAD*/ 
/♦NEwOJAO*/ 
/*  N E WO'J  AO*  / 
/•“EkOUAD*/ 
/•NEwS  J AD*/ 
/*(F  ,0'JAt)*/ 
/•NEkOJAD*/ 
/•NEwQUAO*/ 
/*NE  WQ JAO* / 

/♦newouad*/ 

/♦NEwO-J  AD*/ 
/♦.NEwOJAD*/ 
/*NEW3U4D*/ 
/*NEWC JAO*/ 
/*NEi*0  J AO*  / 


/*R3_UNiauS  GENERATE  a MICROWORO  TO  CLOCK  UN  I BUS  RESULT  REGISTEl  */ 


I CALL  SMJITIll; 

I CALL  SE  T_B I T ( 6 ) ; 

I CALL  S CT_3  IT  ( 7 I ; 

I CALL  SE  7_B I T (95 1 ; 

I cail  set_bit(?bi; 

I CALL  SET_FIFLDINEwOUAn(  1 14-3  1 ,60,63)  ; 

I CALL  OUT.MIC; 

I ENO; 

| RTE.M?_UN!  BUS:  PROCEDURE; 

I 

I /*RTEMP_UNI BUS  GENERATE  A MICROWORO  TO  CLOCK  UNIBUS  TO  RTEMP  * 
I 

I call  SET_B IT ( J I ; 

I CAU  SET_B I T ( 6 1 ; 

| CALL  SET_B I T ( 7 I ; 

I CALL  SET_B(T(95l; 

I CALL  SE T_B I T ( SB) ; 

| CALL  SE T_B I T ( 60 ) ; 

I CALL  OUT_MIC; 

I ENO*. 

' BA_R0_R  EAD: PROCEDURE ; 

I /•  BA_RO_REAO  GENERATE  A MICROWORO  TO  CLOCK  RO  TO  BA  REGISTER 
I ANO  INITIATE  A READ  OPERATION  •/ 

I 

CAU  SEr.RIMlI; 


/*NE*0U4D»/ 
/ANEW'.  JAB*/ 
/•NEhOUAO*/ 
/•NtWOJAD*/ 
/*  NE WO J AO*/ 
/♦.NEWGUAD*/ 
/•NEmUUAD*/ 
/•NFWOJAO*/ 
/*NE  WCUAD*/ 


/*NEwQJAO*/ 
/*nf,,ojao*/ 
/*NC»CJAO*/ 
{ /ANEWOJAO*/ 
/*NF,iQJ  A!)*/ 
/•NEW5UA0*/ 
/*NEW«3JAD*/ 
/•NEWwJAO*/ 
/*NEWOUAO*/ 


/♦ME WON AO* / | 


RO_PL JS2_F 
RO_PLUS?_« 
W0_PLUS2_F 
R0_PLUS2_C 

ro.'Vuse.b 
RO_PL JS2_E 
«0_PL Jj 2_R 
R0_pL  US2_!' 
RO_?L JS?_F 
RC_PLUS2_? 
R0_PLUS2_R 
RC_Pl JS2_s 
RO_PLUS?_F 
r.C_PLU$2_-J 
Rj_PLUS2_fl 
R 0_ PL  US?_f 
RC_PLU32_P 
R0_PLUS2  f 
R3_?LU3?_f 
R 0_°l  L'S2_, 
R0_PLJS2_J 
R 0_PL J$2  T 
f 0_PLUS2_n 
R0_?LuS2_x 

R3.UN! BUS 
R 3_U  2 BUS 
R 3_UN  I BUS 
R 3_UNI  H L'S 
R 3_UN I DUS 
R 3_UN I BUS 
P.3_J'i!  BUS 
R3_UN!BJS 
R3_U  (I  BUS 
R3_UNI BUS 
R3_UM  3US 


R T F M P . 
R TT  I >. 
R T E M 
KTEMU. 
RTEMP. 
RTEMI*. 
K I E M P* 
►TEMP. 
R T E ME. 
RTE  MP. 
RTEMP. 


UN! iUS 
UNI  BUS 
UM3JS 
V'Ni  B JS 
J'  I BUS 
JM  JUS 
UNI  BUS 
UNI  BUS 
UN  1 HU  S 
UNI 3JS 
UNI °JS 


BA_RO_RcAO 
3 A_R  0_P.  ? 40 
BA_RO_RE AU 
3A_R0_READ 

BA  !'  '’"AM 


APPENDIX  7-1  - 17 


1 

i V 1 v' 

i 

UL 

51  i I i 1/  1 ; 

/ ■■ ..  .1  j / 1 

; j i % 

•,  |4_-.  J_  * < 1 

1050 

1 

CALL 

S ET_B  IT  1 1 3 ) ; 

/*\EkwJAP*/  | 

7035 

B A_.RC._k  r A? 

1051 

1 

CALL 

Sf  T_31 T ( 1 7 1 

/‘NCrfOUAO*/  j 

7050 

riA_R  ->_PFA  t 

1052 

1 

CALL 

SET_BIT (571 

/*  4EV:«j AD*/  1 

70*>t 

B A_  R 0 H f AJ 

1053 

1 

CALL 

SET  BIT  158), 

/•NL'rtOUAO*/  ) 

7082 

BA_RO_REA ; 

1055 

1 

CALL 

OUT_MIC; 

/♦NEkQ.JAD*/  1 

7098 

RA_RO_REAO 

1055 

1 

FNO ; 

/•NFriCUAD*/  1 

7106 

5A_R0_Rt£0 

1055 

1 

R3_0: 

PROCEDURE; 

/•NFWC'JAD*/  1 

7112 

1057 

1 

7112 

R 3_D 

1053 

1 

/*R3_ 

D GENERATE  A 

MICROWORD 

TO  CLOCK  0 REGISTER 

TO 

RESULT  REGISTER  •/  I 

7112 

R 5_0 

1059 

1 

7112 

R 3_  L) 

106  0 

1 

CALL 

SET.BIT ill; 

/•NEWOd'.D*/  1 

7112 

R 3_D 

1061 

1 

CALL 

Sf T_BIT<6|; 

/*NCwOJAD*/  1 

7153 

a 3_D 

1062 

1 

CALL 

SET.BIT (7); 

/•NEWOUAD*/  1 

7156 

r.3_o 

1063 

1 

CALL 

SET_9IT (551 

/•NEwOJAO*/  1 

7172 

R3_0 

1065 

1 

CALL 

SET_6IT  t 58) 

, /*N  c wO  J AD* / | 

7188 

R 3_D 

1065 

1 

CALL 

SETIP  IEL0INEWQUAD(IC*3> 

• 60 • 63 ) * 

/•NCnCUAO*/  ( 

7205 

R 3_'l 

1066 

1 

CALL 

0UT_N1C; 

/•NFWQUAD*/  | 

7253 

P 3_D 

1067 

1 

END; 

/•NEWDuAD*/  1 

7256 

R3_D 

I 

1063 

1 

B_R2: 

PROCEDURE; 

/*NE  W3U AD* / | 

7262 

1069 

1 

7262 

3 p.2 

1070 

1 

/•B_R  2 GENERATE  A 

MICRO  WORD 

TO  CLOCK  0PERAND2 

REGISTER 

TO  8 

REGISTER  */  1 

72  62 

B R2 

l-’l 

1 

7262 

B R2 

1 

CALL 

SET_9IT(1 ); 

/♦NlaDUAD*/  1 

7252 

9_R2 

Iv.i 

1 

CALL 

SE  T_B  1 T 1 9 ) ; 

/•NEwQdAO*/  I 

7290 

B_R  2 

1075 

1 

C At  L 

SET.3IT (581 

/•NEmJ'JAD*/  1 

7306 

Li  R? 

1075 

1 

CALL 

SFT_FISLD(NEi.0UADni*2  1,60,63)  ; 

/•NEWOJAO*/  1 

7322 

ft_R2 

1 07o 

1 

CALL 

0UT_9 I c ; 

/•NEkQJAO*/  1 

T 366 

5 R2 

1077 

1 

END; 

/•NEWCUAp*/  1 

73  T5 

B_P.2 

1073 

1 

rtem? 

_5  : P R D C E DU  R E 

/•NEwQUAD*/  1 

7330 

1079 

1 

7330 

P TFNP_5 

1090 

I 

/*RTEM?_5  GENERATE  A MICR0W3R0  TO  SET  RTENP  TO 

5 

♦ / 

7380 

RTEM?_5 

1091 

1 

7330 

1.IE'V_5 

1092 

1 

CAIL 

S'T.BITIO); 

/•NFiiOJAO*/  1 

7130 

RTfM?_4 

1093 

1 

• 

CALL 

SFT_3 I T ( l ) ; 

/*r:EW0uA0*/  ! 

7*06 

RT  E1P_5 

10  95 

1 

CALL 

S E T_0 IT  16); 

/•Ni-nOUAJ*/  I 

75  2 2 

R T E 8’_4 

1055 

1 

CALL 

SET_9 IT ( 7 ) ; 

/•NFa'JUAO*/  1 

7538 

«T6NJ_5 

1386 

1 

CALL 

SETJMTlll) 

/* NFWCU AO* / 1 

7555 

RTE8P_5 

1037 

1 

CALL 

SET  8ITI28) 

/♦''CwOUf.D*/  ! 

7*7  0 

RTCMP_5 

1088 

1 

CALL 

SE  T_B 1 T ( 26 1 

/*NEk„JA>*/  1 

7586 

PTENP_4 

1089 

1 

CALI 

SFT_R 1 T 1 31 | 

/PMrw;u/.D*/  1 

7502 

R r F'!"'_6 

1C9'J 

1 

C ftl  L 

SET  BITI351 

/•NFwOUAD*/  1 

7513 

RTEMP_5 

1061 

1 

CALL 

SE  T_P I T C 35  1 

/*NE  aOJAD* / | 

7535 

RIEMP_5 

1092 

1 

CALL 

S"T_8 1 T ( 36  1 

/ * N E P DU  A D * / 1 

7550 

KTENP_4 

1093 

1 

CALL 

SET  BIT  13  71 

/•NtoDUAO*/  1 

7566 

RT  E98_5 

1095 

1 

CALL 

SE  T_UI T 1 391 

/•Nc  k 1 JAD*/  j 

7592 

P.TFNP 

10«5 

1 

CALL 

SET_B IT  I 601 

/•NEV.3JA0*/  1 

7598 

RTE9P_5 

10«6 

1 

CALL 

S ET_B 1 T 1 5 1 1 

/*f«E«DJ  AD*/  1 

7u  1 5 

RTF'’P_; 

XV  7 

1 

CALL 

SE  T_H I T | 52 1 

/•NCwOUAO*/  | 

763  0 

K T E 3 J_  4 

1099 

1 

CALL 

SFT_B IT (551 

/•NEWQ'JAD*/  1 

7b46 

R 1 E ->:*_4 

s 

1 099 

1 

CALL 

SET_B IT  1 58 ) 

/•NEwCUAD*/  | 

7662 

RTE"P_4 

1 too 

1 

CALL 

SET_8m60) 

, /“NEWOUAi)*/  | 

7673 

RTEIP_5 

ii  n 

1 

CALL 

OUT_*iJC; 

/•NEWDuAD*/  1 

7665 

RTF  N“_4 

f 

1102 

1 

END; 

/•NEWQUAO*/  1 

7702 

P T E 9p_5 

1103 

1 

R3_0:PR0CEfKIRE; 

/•NEWOUAD*/  1 

7708 

1105 

1 

7 70U 

R 3_0 

1 ‘-6 

1 

/•R3_ 

0 GENERATE 

A MICROWOP. D 

TO  SET  RESULT  REGISTER 

TO 

ZERO 

*/ 

7 70  y 

R3_0 

1 

1 

7709 

R 3 0 

ll . 1 

1 

CAIL 

SFT_R1 T ( 0 1 ; 

/•NEW;  jAD»/  1 

7 70  3 

R 3_C 

1108 

1 

CALL 

SET_B1TI 1 | ; 

, /»NL.>;C'IAD*/  | 

7735 

R 3_0 

1106 

1 

CALI 

SFT_3 1 T ( 6 ) ; 

/•Nr  WOU.’.D*/  1 

7750 

R3_0 

1110 

1 

CALL 

SET_fl  IT  1 7 1 ; 

/•NT  nO.) AD* / 1 

7166 

R3_0 

1111 

1 

CALL 

SET.BITI 111 

/*  \E»'C6AD*  / 1 

7782 

R3_0 

1112 

1 

CALL 

SET_8IT (31 1 

/•NEWDO AD* / 1 

7768 

R3_0 

1 

1113 

1 

CMl 

SE  T_Bi T( 32 ) 

/•NEwOUAD*/  1 

7815 

R 3_0 

L '*7 

1116 

* + -JL 

1 cm 

SF  T_B | T ( 55  1 t 

= 

5 

/♦NlkOlAD*/  | 

7(110 

R3.0 

f 
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ns 

1 

CALL  SEI.LIKSI); 

/»  *f  / | 

9 0 

ii6 

1 

CAI.L  SET_F  I ELDtNEWQU AD(  II +3  1,60*63); 

/•NEwOJAD*/  1 

7862 

R3_0 

117 

1 

CALL  OUT.MIC; 

/•NEaD'UAO*/  | 

79D6 

R3_0 

UH 

1 

END; 

/*  NE  nOU  AD*/  ! 

79  16 

R3_0 

110 

1 

RTEMP_SHl  FT : PROCEO'JRE; 

/•Nen.'jUAD*/  1 

792C 

120 

! 

I 

7920 

R T E N P_  S H I F 

121 

1 

/•RTEMP_Shl FT  GENERATE  A MICROWORO  TO  SHIFT  R TEMP 

ONE  POSITION  TO  LEFT  */  1 

792C 

RTEMP_5HI f- 

122 

1 

7920 

RTEMP_SHIF 

123 

1 

CAIL  SFT.BITIO); 

/♦NFWOJAD*/  | 

7920 

R TE  A°_SH l F ' 

126 

1 

CALL  SET_81T III; 

! /*  N F wO  J A J*  / | 

7966 

RIE«P_SHIF' 

125 

1 

CALL  SE  T_6 1 T ( 6 ) ; 

/*NE«Q  J AD*/  | 

7962 

RTEMP_SHI  i- 

126 

1 

CALL  SE  T_B 1 T I 7 ) ; 

/*’iE  »OuAD*/  | 

7978 

RTEMP_SH!F 

127 

1 

CALL  S FT_B I T ( 1 1 ) ; 

/♦NfcWCJAO*/  1 

7996 

rtemp_shi f: 

128 

1 

CALL  SET_B I T ( 291 ; 

/•■NciiOUA  0*/  1 

8010 

RTEMP_SH1F* 

129 

1 

CALL  SETjmiOOl; 

/♦NEWOUAD*/  | 

8026 

RTEM?~SHIF' 

130 

1 

CALL  SET^BIT  1661 ; *■ 

/•NFWQJAD*/  | 

3062 

RT  E MP_SHl F ' 

131 

1 

CALL  SET_8 1 T ( 5 3 ) ; 

/•NEWOUAD’/  | 

8053 

R I E M?_SH I F 

132 

1 

CALL  SFT_9 I T < 601 ; 

/*N  E WDU  AO* / 1 

3076 

RTE  TP. SHIFT 

133 

1 

CAIL  OUT_M!C; 

/•NEwSUAO*/  1 

8090 

RTEMP_ SHIFT 

136 

1 

END; 

/•NEwDUAD*/  1 

3093 

RTEMP_SrtIr7 

135 

1 

B_R is  PROCEDURE: 

/•NEWOUAD*/  | 

810-. 

136 

1 

8106 

B_P  1 

137 

1 

/*R_Pl  GENFSATE  A MICROWORD  TO  SET  B REGISTER  T1  REGISTER 

*/ 

8106 

B_R1 

133 

1 

8106 

B_R  l 

1 

CALL  SET_blT(l); 

/•NFWCUAO*/  1 

6106 

B_R  1 

k 

1 

CALL  S£T_81T (91; 

/*NE  WQ JAD* / ) 

8132 

B_R1 

161 

1 

CALL  SE T_3  1 T ( 5 6 1 • 

/•NEWOUAD*/  | 

816  3 

C_P  1 

162 

1 

CALL  SET_FIELO( NE WQUADI I H-1 1 , 60, 63) ; 

/♦NEWCUAD*/  1 

8166 

B R1 

163 

1 

END: 

/*NF  *0U  AD* / | 

6208 

B_R  l 

166 

1 

R2_SMlFT: PROCEDURE; 

/•NEWOUAD*/  | 

3216 

163 

1 

8216 

R2_SHIFT 

166 

1 

/•R2_  SH! F T GENERATE  A MICROWORD  TO  SHIFT  OPERAND’ 

REGISTER 

TO  LE  5T  1 

6216 

R2_SHIFT 

167 

1 

ONE  POSITION  */ 

8216 

R2_SHIFT 

163 

l 

l 

8 216 

R2_S-i  l f T 

169 

1 

call  set_bitio); 

1 /*NEnOUA')*/  | 

8219 

R2_SM1 FT 

150 

1 

CALL  SET.’ ITU); 

/•newoiiad*/  1 

8260 

R2_ SHIFT 

151 

1 

CALL  SET_S  I T ( 1 | ; 

/♦NEWOUAO'/  1 

S2f  6 

K2_E.U*I  FT 

152 

1 

CALL  SET_3 1 T ( 6 ) ; 

/•NEnG'.JAD*/  1 

b272 

R2.SHIET 

153 

1 

CALL  SET_8 I T 1 7 ) ; 

/*NE  wD'JAD*/  | 

8238 

R2_ SHIFT 

156 

1 

CALL  SE  T_B 1 T ( 1 1 ) ; 

’ /*  NEW DU  AD*/  1 

8306 

R2_SHIFT 

155 

1 

CALL  S ET_9  17  1 26  ) ; 

/♦NE  » JJ  AD*/  ( 

6320 

R2_SH1 FT 

156 

1 

CALL  SET_R I T 1 66 ) ; 

/♦NtwOuADr/  1 

3336 

r.2_SH!  FT 

157 

« 

CALL  SET_2 I T ( 69) ; 

/*NFV-'UAO»/  1 

S3  52 

R2_Sril  FT 

153 

1 

CALL  SET_P.IT152); 

/*NEr.  ,'JAI)*/  | 

8366 

R’_Sl'I  FT 

159 

1 

CALL  SE  T_8I T ( 53 ) ; 

/♦ NEWOUAD*/  | 

8336 

R2_ SHIFT 

160 

1 

CALL  SET_OI T 1 5 8) ; 

/•NEWOUAD*/  1 

B6DD 

P2_ShI FT 

161 

1 

CALL  SET.FJFLDl NEWOUAD! 1 1*2 >,60, 63 ) ; 

/•NFrDJAO*/  | 

8616 

R2.SMIFT 

162 

1 

call  out.mic; 

' /*.NE«OJAD*/  | 

8i60 

K2_ SHIFT 

163 

1 

END; 

/•NEWOJAD*/  | 

8658 

R2_SH I FT 

166 

1 

N0_0P:PR3CED')RE; 

/•NF.wOUAD*/  1 

3676 

165 

1 

8676 

\'D_QP 

166 

1 

/•NO_OP  GENERATE  A N0_0P  MICROWORO  */ 

8 5 76 

N'j_L/P 

167 

1 

8*76 

N0_(1P 

163 

1 

call  SET_B!T«1 ); 

/•NEWOUAD*/  | 

8976 

n:._gp 

169 

1 

CALL  OUT_M !C ; 

• 

/•NEWOUAD*/  | 

8502 

NO_C;P 

170 

1 

END; 

/•NEwQuAD*/  1 

8510 

NU_DP 

171 

1 

R3_R  3_PLUS_B:  PROC  EOL/RE ; 

/•NEWOUAD*/  1 

8516 

IT’ 

1 

8516 

R3_R3_PLUS_; 

t 

1 

/•R3_R3_PLUS_B  GENERATE  A MICROWORD  TO  AOO  PFSULT 

REGISTER 

TO  B AEG! STER  1 

65 1 1 

R3_R3_PLJS_ 

1 

1 

AND  PUT  RESULT  IN  RESULT  REGISTER 

•/ 

85lo 

R3_R3_PLUS_' 

175 

1 

8516 

RA_R  T_PLUS_; 

176 

1 

CALL  SET_IUT|0); 

/*NE«CUAD*/  | 

8516 

R i_K  3_PL'JS_: 

177 

1 

CALL  SET_B!TJ6»; 

/•.NEWOUAD*/  1 

P562 

R3_R  3_PL  JS_; 

178 

1 

CALL  SET.BITCT); 

/•NEWOUAD*/  1 

8553 

R3_R  !_PLUS_( 

179 

1 

CALL  SET_B JT (11); 

/*NE»OUAD*/  1 

8576 

P.3_R3_PLUS_( 

130 

„i 

1 

f At  1.  STT  _B  | T ( 79  ) 1 

*—  ■»*  _ 

/•NCwO'IAO*/  j 

65  90 

P3_P3..PLUS 

APPENDIX  7-1  - 19 


i 


1*1 

1 

CALL  S.  l_  *l  1 l 321 

/ * • • r.  It  • w*  It  6 / 1 

5_  ' LL  L. 

112 

1 

CALL  SET_B1 T 1 5 11 

I 

/*NG  *QdAD*/  | 

e622 

R3_R}_PIJS_R 

IB3 

1 

CALL  ScT_FIFLD(NEK2JADI 11+31.60,63); 

/•NEwOUAD* / 1 

86  2 3 

R3_P’_PLUS_3 

11* 

1 

CALL  OUT.MIC; 

/•NErtOJAO*/  | 

1682 

Ri_R3_PLU$_rt 

US 

1 

ENO; 

/♦NEi'.CJAO*/  | 

SCS'O 

f.3_»3_PLH>_2 

14b 

1 

R YEMP_M1NU$_1  s PROCEDURE; 

/•NEkO'JAD*/  1 

66  96 

187 

1 

8696 

RIEMP_MI„US_ 

188 

1 

/•ft  TE  MP_M I NUS_1  GENERATE  A MICROMORD  TO  SUBTRACT  1 FROM  RTEMP 

• / 1 

3696 

RT  EMP_MI.N-.JS 

181 

1 

86  96 

R TE  MP_M I NdS_ 

190 

1 

CALL  SET_1 T T ( 0 1 ; 

/•NFkjUAO*/  1 

8656 

RTF  M°_M  1 J 'J  $_ 

191 

1 

CALL  SETJJIUbl! 

/•nfwguao*/  i 

3722 

R7E1P_MIN/sI 

192 

1 

CALL  S2T_bIT(7>; 

/•NEkCUAO* / j 

8738 

RTE  M?_M I Nd5_ 

193 

1 

CALL  SET 3 1 T ( III 

/*NE»OJAO»/  1 

8 75* 

KTEMP_M1NJS_ 

19* 

1 

CALL  SET_RITt2bl 

/•NE2QJ AO*/  j 

87  70 

RTEMP_MIN'JS_ 

195 

1 

CALL  SET_31 T ( 80 ) 

/•NCWOUAD*/  J 

8 736 

R T E 'i?_M  I NIJS_ 

19b 

1 

CALL  SET_9|T(31) 

/*N  F «2 J A9* / | 

8302 

RTF  3P_M1N'JS_ 

197 

1 

CALL  SET_1 I T ( 37 ) 

j /•NEWQ'JAD*/  | 

88  1 d 

I<TEMP_MINUS_ 

198 

1 

CALL  S ET_h IT (39) 

■'  /*NRW20A0*/  j 

833* 

RTEMP_M1NUS_ 

193 

1 

CALL  SrT_1!Tl*OI 

• /*NE  hOJAO* / I 

8852 

RTEMP_M’.NJS_ 

200 

1 

CALL  SE  T_9 IT  1*11 

• /•NEW'JUAO*/  1 

6866 

RIEM?_M INUS_ 

201 

1 

CALL  SET  _B 1 T < * 2 1 

• /*NF.,0JAO*/  | 

8882 

RTE«P_MINJ5_ 

202 

1 

CALL  Sr  T_0 I T ( ** 1 

/♦NE..QJAO*/  1 

8193 

rtemp_minus_ 

203 

1 

CALL  SET_3 1 T t 50 ( 

/•NckSlAD*/  | 

891* 

»TEM?_Ml«ldS_ 

20* 

1 

CALL  SET_BIT(5?I 

1 /*NtkOJAD*/  | 

8930 

RTEMP_MINUS_ 

205 

1 

CALL  SE  T_8 I T 15  3 1 

!'  /•NEkOJAO*/  | 

89*6 

R7EMP_MI VJ$_ 

2 " 

CALL  SET_B!Ttb01 

/*\F  «2 J AD* / 1 

8962 

rteip_minus_ 

2v 

ENO; 

/•NckOJAD*/  1 

8978 

RT  FMP_MINUS_ 

201 

i 

91  C_GEN : PRDCE  D IRE ; 

/•NEwC^AO*/  1 

893* 

209 

1 

DECLARE  C4SE_NJMC30)  FIXED  INITIAL  (9, 

/•NEhiUAD*/  | 

893* 

M1C_GEN 

210 

1 

0, 

/•.*2»0'JAD*/  | 

899b 

M1C_GEN 

211 

1 

11. 

/•NFkvUAD*/  j 

8996 

MIC.GEN 

212 

1 

1. 

/•NEwOJA 0*/  | 

899b 

MI C_G  EN 

213 

1 

0, 

/•NEWOUAC*/  1 

6996 

M1C_GFN 

2'.* 

1 

0, 

' /*N‘%0')A,1*/  J 

8956 

MIC_GFN 

215 

1 

0, 

/•NEWOUAD*/  | 

8996 

Ml C_GE  N 

21b 

1 

10, 

/ANcrtUUAD*/  | 

8956 

H1C_GE'I 

217 

1 

2, 

/•NEkOJVO*/  | 

8996 

MIC_GEN 

218 

1 

0, 

/•NFWOJAC*/  1 

6996 

MIC_GEN 

219 

1 

0, 

/•‘.’EkOJAO*/  | 

8906 

MIC. GEN 

220 

1 

1. 

/•NCWOJAO*/  1 

8 99o 

•11C_GEN 

221 

1 

1. 

/ *NF  r>k  J AD*/  J 

899  6 

M!C_GFN 

222 

1 

1. 

/♦NEt.O'JAD*/  | 

8956 

N1C.GFN 

223 

1 

0. 

/*Nt  V.CO  AD*  / | 

399b 

M1C.GEN 

72* 

1 

0, 

/*NE«JJAD»/  1 

8996 

MIC_GEN 

225 

1 

0, 

/•NF’wOUAD*/  | 

8996 

MIC.GEN 

226 

1 

0, 

/♦NEWOUAD*/  | 

8996 

M1C_GEN 

227 

I 

0, 

/•NEkO'JAD*/  | 

8956 

Ml  C_GEN 

721 

1 

0, 

/•NEli'JAO*/  1 

0956 

M I C_GE  N 

729 

1 

0, 

/* \F  *0 J AO* / 1 

3996 

M1C_0FN 

730 

1 

0, 

/*Nf ..QUAD*/  j 

8956 

MICRO'S 

211 

1 

0, 

/♦i.CnOJAG*/  1 

8996 

M IC_GEN 

232 

1 

0, 

/*N£  |*C  J AD*  / 1 

3596 

MIC_GEN 

233 

1 

a. 

/•NEH3JAD*/  1 

3996 

MIC_GEN 

23* 

1 

*. 

/•N*6JJAD*/  | 

8996 

M IC_ GCN 

235 

1 

5, 

/•NFWOJAD*/  1 

8996 

MIC_GEN 

236 

! 

6 • 

/•NEkOdAO*/  | 

8956 

MIC_GEN 

237 

1 

7, 

/•NEWOUAD*/  1 

P996 

M1C_GEN 

233 

1 

3, 

/•NFkOUAO*/  1 

8996 

MIC.GEN 

239 

1 

Ol; 

/•NEkOJAO*/  | 

8996 

Ml  C_>GEN 

2' 

DECLARE  TEMP_CUftR_M!C  FIXED; 

/•NCWOdAD*/  1 

8996 

MIC_GEN 

2'. 

-i 

DO  CASE  CASE.NUMIOFER); 

/•NEk'O'JAO*/  1 

8996 

M!C_GEN 

2*2 

l 

00; 

/•NEk'QdAD*/  1 

9028 

MIC.CEN 

2*3 

) 

902  8 

M1C.GEN  CASE 

2** 

i 

/•GENERATE  MICROCODE  FOR  ADD  REGISTER  QUAD  • / 

902  S 

M!C_GEN 

2*5 

l 

9028 

MIC.GEN 

2*b 

I 

CAII  R.R7; 

' /*NFU J IAO*/ 

902  0 

MIC  CEN 

I 


L 


A 


U HC  | 

1248  1 

1249  | 

1250  1 

1251  I 

1252  I 

1253  | 

1254  | 

1255  | 

1256  I 

1257  | 

1258  | 

1259  | 

1260  | 
1261  | 

1262  I 

1263  | 

1264  | 

1265  | 
1264  1 
1267  | 
1269  | 
1269  | 
12  70  1 

1271  | 

1272  | 

I27j  i 
1274 
1775  . 

1276  | 

1277  1 

1278  I 

1279  1 
1230  1 

1291  | 

1292  1 
1253  | 
12  84  | 
1285  I 

1296  ] 

1297  1 
1258  1 
1269  | 

1290  I 

1291  | 

1242  1 

1243  1 

1244  | 

1245  | 
1296  1 
1247  ] 
1299  I 

1299  | 

1300  1 

1301  1 

1302  | 

1303  I 

1304  | 

1305  l 

1306  1 
1307. ' 

1308 

1309  . 

1310  1 

1311  I 

1312  I 


UU  Jif.  t il  1 J 1 i 

/•..1..1J4  >■/  1 

V J *o 

" i . 

CALL  SFT_9ITI1!> 

/•NEwaJAD*/  | 

9350 

Ml C_GEN 

CALI  SET_RIT<29> 

/•NEhOJAI)*/  i 

9066 

M1C.GEN 

CALL  S ET_rt 1 T l 32  l • 

/•NFWCIAD*/  | 

9092 

MI  C_GEN 

CALL  SFT_91T(58», 

/♦NExOjAO*/  ( 

V053 

Mir._GE.AI 

CALL  S ET_F I ELOINEWQUAD til *11,60,631  ; 

/•NExOJAD*/  1 

9114 

M1C_GEN 

CALL  OJT_MIC; 

/•NEKCJAD*/  | 

91  53 

MIC_GEN 

88_rl.AG  = TRUE; 

/•NEMQJAD*/  1 

9166 

M 1 C_GEN 

CALL  R3_0; 

• /*NE*iJAO*/  1 

91  74 

MIC.GEN 

END; 

' /•NExQ'JAD*/  | 

9182 

MI  C_GEN 

00; 

/•NEMQ'JAO*/  1 

9182 

M I C_GC  N 

{ 1 

9190 

M l C_  3 f N 

/•GENERATE  MICROCODE  FOP 

SUB,  LT,  GT,  EQ  REGISTER  QUAOS 

•/ 

9190 

M I C_Cf  N 

9190 

MIC.GFN 

IF  3PER-LT  THEN  C 

>o; 

. /*NE40UAD*/  | 

9190 

MIC_GE  N 

T F 4 P_CURR_H JC  = NEWQUA9I  I !♦!)  ; 

/*N  EwC'J  VO*/  1 

9206 

MIC_GEN 

* NrOJ4Dl  II  *11* 

NEWQU ADC  11*21; 

/•N  F wOUAD* / 1 

9226 

MIC.GEN 

NEWOJADI  11*21* 

TEMP_CUPR_M1C; 

/• NE*JUAD*/  1 

925.9 

MIC.Gf N 

ENO ; 

/•NEACdAC*/  | 

927E 

MIC_GEN 

CALL  R R2; 

/*NE»Q'JAD»/  i 

92  76 

MI C_GEN 

CALL  S"T_RIT(01; 

; /•NEpQUAD*/  | 

9786 

MI C_GE  N 

CALL  S£ T_8  I T( 1 1 ) 

/•NF9CUA0*/  | 

9300 

M I C_GEN 

CALL  S ET_B I T 1 1 9 ) 

/•NFWOJAO*/  | 

9316 

M I C_GE  N 

CALL  SET_3 1 T 1 25 ) 

/•NEv.QJfcO*/  | 

9332 

M 1 C_GE  N 

CALL  SET_8;t«26) 

/•NE«GJA3*/  | 

9343 

MIC.GEN 

CALL  S ET _8 I T ( 3 0 1 

/*NE<OJAO»/  | 

9354 

MI C_GEN 

C ALL  SE  T_B1 T ( 3 1 1 

/•NEnQJAJ*/  | 

9330 

MJ  C_GF  N 

CALL  SET_6(T(58); 

/•NEVOJAD*/  | 

9396 

M1C_GEN 

CALL  S cT_F  I EL  DI  Nf  <VQUAD(  11*11,60,631  ; 

/•NEACJAO*/  | 

9412 

M I C_GE  N 

CALL  OL»t_mic; 

/•NEaO.JAJ*/  1 

9456 

Ml  C_GE 

8A_r  L AG*TRUE , 

/•NEWQJAD*/  1 

9464 

M I C_CEN 

CALL  R3_D; 

1 /*MF«J'JAC*/  1 

9472 

Ml  C_GEN 

END; 

/•NEwQUAD*/  | 

9430 

M 1 C_CF  N 

DO; 

j /*NEW3J AD*/  | 

9480 

MIC.  GcN 

948  6 

M I C_GE  \' 

/•GENERATE  MI CPQCODE  FOR  8T  REGISTER  QUADS  •/ 

94  58 

MK._3EN 

9489 

M l C_GC  "1 

CALL  SET_9!T(0>; 

/•NF.aQiI  AD*/  | 

9483 

MIC.GEN 

CALL  S'T.MTIUI 

/•nercjad*/  1 

■1502 

Ml  C_GEN 

CALL  SET_3 I T ( ?6) 

/••KWOUAD*/  | 

991  9 

Ml C_GE  N 

CALL  S ET_3  I T ( 28 1 

/•NF*3UAD*/  | 

9534 

MIC_GEN 

CAI  L SF T_9  t T<  3 1 1 

/•NEWQJA1*/  1 

95  50 

MIC.GEN 

CALL  S E T_6 1 T ( 3 4 ) 

/•NFO’JAO*/  | 

9566 

MIC.GEN 

CALL  SFT_RIT(37> 

/•■IEaQJAD*/  | 

9592 

MIC.GEN 

CALL  SEI_OIT| 34| 

/•NEWwJAU*/  | 

9598 

MI  C_GEN 

CtLL  SETJUT140I 

/•NEaOJAO*/  1 

9614 

•11  C_CEN 

CALL  S ET_B I T 1 4 1 ) 

/*NE«3UAD*/  | 

9630 

Mir_5FN 

CALL  SET_RIT(42I 

/•N  E «OU4D*  / | 

9646 

Ml C_GE  N 

CALL  S ET_H IT(50) 

/•NEVOJAD*/  I 

9562 

Ml C_CE  N 

CML  SET_3IT(52) 

/•NEaSJAO*/  1 

4578 

MIC.CEN 

T E MP_CUPn_  Ml  C=C'JPR_MIC; 

/*NC»GUAO*/  1 

9694 

MI C_GEN 

IF  C IRR.AIC  MID  2 = 1 THEN 

/•NEA'QJAJ*/  1 

9702 

micZgen 

CUPP._“1C*CU9P._ 

.m  i c*  l ; 

/♦NEKCJAD*/  1 

9736 

M I C_Oc  N 

CALL  SC1_FIFL01CURR_MlC*l,65,721; 

/•NF»OdAO*/  | 

9 7*»0 

MIC_ifcN 

CALL  Pl/T_«lC<  TE4 

>_CURR_NIC1; 

/•NTACJAD*/  1 

0776 

MIC.GEN 

CUP»_M IC*CUOS_MlC*l ; 

/*NE*OUAO»/  1 

9 742 

MIC.SEN 

CALL  SET_PIT(l  ); 

/•UFuQUAD*/  | 

9804 

MI C_GEN 

CALL  niJT_MlC; 

/•NEoOUAO*/  1 

9320 

MIC_3F N 

CALL  SE T_8 I T( 11; 

/•NcKOUAO*/  1 

9828 

MIC.GEN 

CALL  SET_F 1FL0<CURR_M1C*2,65,72»; 

/•NEA'OUAj*/  | 

9844 

MIC_GEN 

CALL  PUT.MICCCUPf 

'_MIC1 ; 

/•NChOUAO*/  | 

9R80 

Ml C_GCN 

CURR_MIC«CURP_MIC*1J 

/•NEMCIAO*/  1 

9896 

MIC.GEN 

CALL  SET_8 IT ( 1 1; 

/•NEWGU AD* / j 

9003 

M1C.GEN 

LL-NEHO'IADC  11*31 

/•NEOJA.O*/  | 

4924 

M1C_GEN 

CALL  SET_F !ELO( MI C_LOC ILL) ,65 , 721 ; 

/•NEmQuaO*/  ( 

9044 

MIC.GEN 

cali  PUT_M ic ( Curt 

»-HlCl ; 

/•NEUO.lAi)*/  | 

4984 

MIC .GEN 

■ - 


1313  f 

CwRK_M  JC«CU>\K_MH>1  < 

qua 

1 

10  : 1 > 

1314  I 

END; 

/♦NExCUAD*/ 

1 

10012 

MIC_Gf N 

1315  | 

o 

o 

/♦NENQJAD*/ 

1 

10012 

Ml  C_GC’J 

131b  | 

1 

10020 

Ml  C_GFN 

CASE 

1317  1 /•GENERATE  MICROCODE  FOR  ASL  REGISTER  QUADS  */ 

1 

10020 

Ml  C_GEN 

1318  | 

1 

10020 

M1C_GEN 

1319  I 

CALL  SFT_PIT(0>; 

. ‘NEWQ'JAD*/ 

1 

10020 

Ml C_G£N 

132  3 | 

CALL  SET_B1T ( Ills 

, ‘NEWQJAO*/ 

1 

10034 

MIC.GEN 

1321  1 

CALL  S£T_9IT(?9); 

. ‘NcHOUAD*/ 

1 

10050 

MIC  GEN 

132?  | 

CALL  SFT_BIT(30); 

/‘NEXQUAO*/ 

1 

10066 

MIC.GEN 

1323  | 

CALL  SET_B I T ( 58) ; 

/‘NEWQU.AD*/ 

1 

10002 

Ml  C_  DF a 

1324  | 

CALL  SET_F 1 EL D( NEriQUADf  11*1), 60, 63)  i 

/‘NexGUAD*/ 

1 

10093 

M1C.GEN 

132V  | 

CALL  OUT_MIC: 

' /‘NcHOUAD*/ 

1 

10142 

MiC_GEN 

1326  1 

CALL  R3_0; 

/‘NEwQUAO*/ 

1 

10150 

MIC.GFN 

1327  | 

END; 

/‘NEKQUAD*/ 

1 

10158 

KiC_GEN 

1328  \ 

00;  . 

/‘NEHQUAO*/ 

1 

10158 

Ml C_GEN 

1329  | 

<- 

1 

1 0 1 06 

MIC.GEN 

CASE 

1330  1 /‘GENERATE  MICROCODE  FOR  RD  REGISTER  QUAOS*/ 

1 

10166 

MI C_GCN 

1331  | 

1 

10166 

NIC.GEN 

133?  | 

CALL  RO_PLUS?_REAO; 

/‘NEXQJAD*/ 

1 

10166 

MIC.SEN 

1333  | 

CALL  RTEMP_UNIBUS; 

/‘NExQU AD*/ 

1 

10174 

Ml  C_GE  N 

1334  \ 

CALL  S ET_3 ! TI 60 ) ; 

/•N  ExOUAD*/ 

1 

10182 

MI  C_GEN 

1335  | 

CALL  8A_R0_°EA0; 

, /‘NExOUAD*/ 

1 

10193 

MIC.GEN 

1336  | 

BR_FL  AG=TPU  E ; 

/‘NExQUAD*/ 

1 

10206 

MIC  GEN 

1337  1 

CALL  R3_UNIBUS; 

. /‘NFIOUAD*/ 

1 

10214 

RIC.GEN 

1 33  R 

END; 

/ *N  F*QU  AO* / 

l 

10222 

MIC  _GE  1 

1339 

o 

o 

/‘NEXCUAD*/ 

1 

10222 

MIC _GEN 

1340  1 

1 

10230 

M 1 C_GEN 

CASE 

1341  | /^GENERATE  MICROCODE  FOR  NT  REGISTER  QUADS  • / 

1 

10230 

MIC_GEN 

1342  | 

1 

10230 

M I C_GEN 

1343  1 

CALL  F0_PLUS.?_RFA0; 

/‘NEXQUAD*/ 

1 

10230 

M 2 C _G  E N 

1344  | 

CALL  RTE*P_UNIBUS; 

. /*NExOJAO*/ 

1 

10238 

MIC_GEN 

1345  | 

CAlL  SET_B I T I 1 1 ; 

/•  N'FHCJAO*/ 

1 

10245 

MIC. SEN 

1346  | 

CALL  SFT_B I T ( 1 3 ) ; 

/‘Nt  WDUAD* / 

1 

10262 

MI C_GEN 

1347  | 

CALL  SE  T_B ! T ( 471 ; 

1 /*NE«3U\0«/ 

1 

10276 

M I C_GE N 

1340  1 

CALL  SET_B!T!56); 

• J /‘Nr.n’CJ AD*/ 

1 

10244 

M1C_GEN 

1349  | 

CALL  S ET  _B I T ( 60 ) > 

■ /‘NEWG’IAD*/ 

1 

10310 

M1C_GFN 

1350  1 

CALL  OUT_*»!C; 

/•NEXQJAO*/ 

1 

10326 

M I C_GE  N 

1351  | 

CALL  SE T_B I T I 0 ) ; 

f*U  EWC-JA3*/ 

1 

10334 

M1C.GEN 

1352  1 

CALL  SET_eiTI2); 

/•NEiOUAO*/ 

1 

10343 

M I C_GE  N 

1351  1 

CALL  SE  T_31 T (11); 

/‘NElOUAO*/ 

I 

10  3 ->4 

MI :_sf \ 

1354  | 

CALL  S E T_B 1 T t 151; 

/♦NFUQJAD*/ 

1 

10380 

MIC.GEN 

1355  | 

CALL  SCT_B  IT  I 1 7 1 ; 

! /‘NEXCUAO*/ 

1 

10396 

«IC_Gf N 

1356  | 

CALL  SET_8I  T ( 58)  ; 

i /‘NEHCJAO*/ 

1 

10412 

MIC.GEN 

1357  | 

CALL  SET.FIELDINEKOUAOI 11*11,60,63) ; 

1 /‘NExCUAO*/ 

1 

10428 

M IC_GCN 

1353  | 

OR_FLAC»TRltE; 

/*N  E XOU  AD*/ 

1 

10472 

MIC  GEN 

1353  | 

CALL  OUT.MIC; 

' /‘NExQJAO*/ 

1 

10483 

MIC.GEN 

1360  | 

END; 

/♦NEkOUAO*/ 

1 

10488 

M 1 C_GEN 

1361  1 

DP; 

, /‘NEWQUAD*/ 

1 

10483 

M I C_  GEN 

136?  1 

\. 

1 

10446 

vl C_GEN 

CASE 

1363  | /‘GENERATE  MICROCODE  FOR  ROAD  REGISTER  QUAD  •/ 

\ 

1 

10496 

MIC.GE.M 

1364  | 

\ 

! 

10496 

MI C_GEN 

1365  | 

CALL  R0_RLUS?_RE AD; 

i /‘NEWOUAD* / 

1 

10496 

MIC.GEN 

136b  | 

CA-L  R3.UN1BUS: 

• /‘NEXOJADt/ 

1 

10524 

M1C.3EN 

1367  | 

END; 

' ! /‘NEHQUAO*/ 

1 

10612 

M I C_GFN 

1368  1 

DO; 

/•NExQUAD*/ 

1 

10512 

M1C_3S\ 

1164  | 

i 

1 

10520 

M1C.GEN 

CASF 

1370  1 /‘GENERATE  MICROCODE  FOR  RDVR  REGISTER  QUAD  •/ 

i 

1 

10520 

MIC.GFN 

1371  1 

1 

105’0 

MIC.GtN 

13  72  . 

CALL  SFT.Fl EL OCNExQUADC II‘l 1,60,63) ; 

. /‘NFxQUAD*/ 

1 

10523 

MIC _GF N 

1373  . 

CALL  9A_R0_RE  AO ; 

/♦NpXOUAD*/ 

1 

10564 

M1C_GEN 

1374  1 

BR_FLAG-TR'JF; 

/‘NcXQUAD*/ 

1 

13572 

Ml C_GE  N 

1375  | 

CALL  R 3_UN I Bu S; 

/•NEXQJAD*/ 

1 

10533 

M I C_GE  N 

1376  1 

END; 

/S-NEXQUAC*/ 

1 

10588 

MIC.GEN 

1377  1 

O 

o 

/♦NEHOUAD*/ 

1 

10588 

M1C.GEN 

!W«  | 

I 

10596 

Mir. t'.r  n 

r.Asr 

♦ 

# 


APPENDIX  7.1  - 22 


it/; 

1 

/•Gef.EKMI  4l  rii*'  LAO  Abul&IcK  ujAO  •/ 

1 

i * , tst 

1 *J  i • 

138C 

1 

I 

10636 

Ml C_GE  N 

1381 

1 

CALL  8A_R0_READ; 

/•NEw'JUAD*/ 

1 

10596 

M1C_GEN 

1382 

1 

CALL  SFT_B  IT ( 11; 

/♦NEhCJAC*/ 

1 

10604 

MIC_GEN 

13  33 

1 

CALL  SET  BITI6I; 

/♦NefcOtJAO*/ 

I 

1 06  2 0 

Ml  C_GE<J 

1384 

1 

CALL  SET_B IT  171; 

/♦NEhl JAO*/ 

1 

10636 

M J C_G!  N 

1385 

1 

CALL  SET_B 1 T I 45  1 ; 

/»NE«2J4'3*/ 

1 

1065? 

M I C_  SEN 

1384 

1 

CALL  SET_B IT ( 58 ) ; 

/**;  r o*/ 

1 

1D(  48 

MIC_f.EN 

1337 

1 

CALL  OUT_MIC; 

'‘NEwQUAD*-/ 

1 

10ob<» 

M I C_C. cN 

13  8.3 

1 

END; 

'•NFWOJAD*/ 

1 

10632 

mic_:;fn 

1353 

1 

00 

• 

• 

/♦NFWQUAD*/ 

1 

IDO  3 2 

mic.gen 

1330 

1 

i 

10700 

MI C_GEN 

1331 

1 

/• 

GENERATE  MICROCODE  FOR  WTAD  REGISTER  QUAD  •/ 

1 

10700 

M!C_GEN 

1332 

1 

1 

10  700 

M I C_  *.E  N 

1333 

1 

CALL  SET_9 1 T (11; 

/*N  EWU'JAD*  / 

1 

10700 

MI  C_GEN 

1334 

1 

CALL  SE  T_5 1 T ( 13); 

/ *tj  F*'JJ  AO*/ 

I 

11716 

MIC_GE74 

1335 

1 

CALL  S"T_3 IT ( 4 7 1 ; 

/♦NcHOUAC*/ 

1 

1 0732 

M l C _ G F 74 

1 336 

1 

CALL  SE  T_BI  T 1 58  ) ; 

/♦NE..2JAD4/ 

1 

10746 

MIC.GEN 

1337 

I 

CALL  SE !_► I E LD I NE  MQUAO I I !♦ 1 1,60,631 ; 

/♦NFHOdAC*/ 

1 

10764 

M1C_GEN 

1338 

1 

CALL  C-JT  MIC; 

/♦NEMC JAO*/ 

1 

10318 

M I C_GEN 

1339 

1 

CALL  SE  T_5 I T I 0 ) ; 

/*NC  ftOUAD*/ 

1 

10516 

MI  C_GEN 

1403 

1 

CALL  SET_U 1 T ( 2 1 ; 

/♦NEWOJAD*/ 

1 

10830 

MIC.GEN 

1401 

1 

CALL  SET_il  IT  111); 

/ *iv  E ,.3J  AO*/ 

1 

10346 

MIC.GEN 

140? 

1 

CALL  SE  T_B  I T ( 1 5 1 ; 

' /*NE»'3J AD*/ 

/ 

10362 

MI  C_GEN 

1403 

CALL  SE T_B IT ( 171 ; 

/♦nf.hq.jao*/ 

1 

1 037  8 

MIC_GEN 

1404 

CALL  SET_9 1 T < 58  ) ; 

/♦NE8QUA0*/ 

1 

10834 

KIC.GEN 

1405 

» 

CALL  SET_F 1ELDI N£WQUAD( 11*3 1,60,63) ; 

/*N E'aQU  AD*/ 

1 

10310 

M I C_GE  N 

1406 

1 

BR_FLAG*TRJF; 

/*l,E^O  JAt)*/ 

1 

10364 

MI C_GEN 

1407 

1 

CAIL  0UT_M1C; 

/*NE«4JAD*/ 

1 

114.42 

MIC.GEN 

1403 

1 

1 

END; 

/•MEwQjAO*/ 

1 

10°70 

M 1 C_GE  :4 

1403 

1 

* 

1 

10971 

MIC.iE'l 

1410 

1 

/•5k  RESIST  ER  OUAO*/ 

1 

10970 

m l c_r."‘4 

1411 

1 

1 

10370 

MIC.GEN 

1412 

1 

• 

/♦NEwOJAD*/ 

1 

1D97J 

MIC_‘,fn 

1413 

1 

oo; 

/*NE^OUAO*/ 

1 

11978 

MIC_GE<4 

1414 

1 

1 

10936 

M i C_jE  N 

1 -*  1 5 

1 

/• 

GENERATE  MICROCODE  FOR  MUL  REGISTER  QUAO  */ 

1 

10986 

^ i N 

1414 

1 

1 

10986 

V*  I C_GE‘% 

1417 

1 

CALL  RTE1P_4; 

/♦NEkOJAO*/ 

I 

1 0 

mic_ge  s 

1418 

1 

CALL  R TFMP_5H! FT; 

/ *'<C  * *J  AD*  / 

i 

10994 

•tIC_GEN 

1413 

1 

CALL  RTEMR.SHIFT; 

/♦mcwO'IAO*  / 

1 

11002 

M I C _ G E N 

1420 

1 

CALL  R3_0; 

/*NF  *(JJAO*/ 

1 

HOLD 

MI  C_GEN 

1421 

1 

temp_cupr_mic=cupr_*uc; 

/•HFr.QJ  AD*’/ 

1 

11918 

Mi:_GcN 

1422 

1 

IF  CUP P. _M I C MOD  2 « 0 THEN  00; 

/*N Eh  j J AO* / 

1 

11026 

•MIC_GEN 

1423 

1 

CUR  R_M I C»CURR_M I C*1 ; 

/*'IE  ViO’JAO*  / 

1 

n •',2 

MIC_GEN 

1424 

1 

END; 

/•NFa’JJAD*/ 

1 

U0b4 

MIC_Gc-4 

1425 

1 

CALL  B_Rl; 

/•NE4Q JAD* / 

1 

11064 

M :C_GFN 

1426 

1 

CALL  SFT.Fl  EL  11  C'JRR_MIC*1, 65,721; 

/*Nl  WU'IAD*  / 

i 

1107? 

MI C_GE  N 

1427 

1 

CALL  PUT_MIC(TEM?_CURR_MIC»; 

/*Nr4.J  JAD*/ 

1 

11108 

Ml  C_GE  N 

1423 

1 

C'JRK_M  !C  = CURR_M  I C ♦ 1 ; 

7*newqj  AD*/ 

I 

1112  4 

M I C_  GE'I 

1429 

1 

TENP_CURR_M1C=CUR?_MIC; 

/♦newoiud*/ 

1 

11136 

“IC_r,E.N 

1430 

1 

CALL  R?_SHIFT ; 

/*N  E WDUAD*/ 

) 

11144 

M I C_GE  “4 

1431 

1 

CALL  NO_OP ; 

/♦NEwj’JADs  / 

1 

11152 

M IC_GEN 

141? 

1 

CALL  R 3_P 3_PLU S_3 ! 

. /*NFKO JAO*/ 

1 

11160 

MI C_GC  N 

1433 

1 

CALL  RTEMP_MI NUS_1 ; 

/♦NEMDUA')*/ 

1 

11168 

MIC  _GE  N 

1434 

1 

CALL  SET_F1 El D1CURR_MIC*2, 65,72); 

/•NEMQUADV 

t 

11176 

MIC.GEN 

1433 

1 

CALI  PUT_MICICURR_M1CI ; 

/•(t  v,Q'jAD*/ 

1 

11712 

MIC_G£N 

1436 

1 

CURR_MIC»CUfiP_"lC*2; 

/*Nrv.O'JAO*/ 

1 

11223 

MIC.GEN 

1437 

* 

CALL  SFT_B ITI 1 » ; 

/*NE.<2'JAD»/ 

1 

11240 

MIC.GEN 

1438 

CALL  SET_FIELDI TEMP_CURR_M IC ,65,7 2) ; 

/♦NFV'OUAO*/ 

1 

1125o 

M I C_r,E  N 

1433 

1 

CALL  PUT_MIC!CURR_MIC>; 

/•NEhOJAD*/ 

1 

11238 

MIC.GEN 

1440 

1 

CUPR_MIC«C'JRR_MIC*1  ; 

/•NEWJUAO*/ 

1 

11304 

MI  C_GtN 

1441 

1 

br_flag«true; 

/•NEMQJAD*/ 

1 

11316 

MIC.GEN 

1442 

1 

CALL  NO.OP; 

/*N  F wOU AD*/ 

I 

11324 

MI C_GE  N 

1443 

1 

END; 

/•NP^OUAD*/ 

1 

11332 

M IC_GEN 

1444 

1 

FND  j 

/•hi  HQi  1 A l>* / 

1 

111)? 

mu  _ r. r 7< 

CASE  l 
CASE  1 


w 


Lir 


«... 
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r 


1445 

u:j; 

/ * N - . t \ J-/ 

1 

1 . •••'J 

UL.rf!.  < 

1446 

PUT_NEWQUAD:PR3CFDURE; 

/•nfwouad*/ 

1 

1 1 346 

1447 

1 

11346 

PUT_NfW0u4r 

1448 

/•PUT_NFWQUAD  PRIM  OUT  REGISTER  QUADS  */ 

1 

1 1 3*6 

PUI.NEnOJA' 

1449 

1 

113*6 

put_nf*oua: 

1450 

NFWQUADINFWOUAONOI  = GPRTOE  ; 

/•NFWOJAO*/ 

1 

11346 

PJl_NrwO'JAL 

1451 

NEH0U4O1  NEwOUAONr.  ♦ 1 ) * OPRND1 ; 

/•Nt  VOUAO*/ 

1 

113/4 

pjt_n=60ua: 

145? 

NEWQUAD1 NEWQUADNO  ♦ 2 1 » 0PRN02J 

/*  Ifcl.Q  M?)*/ 

1 

11394 

pot_nf  W j JAE 

1453 

NEWQUADI  NFWQUAONO  ♦ 3 ) * RSLT; 

/•NEWOUAD*/ 

1 

11*14 

PUI_OEW0,.IAC 

1454 

NEWQUAONO  - NEwQUADNO  4 4; 

/•‘it  WON  AO*/ 

1 

1143  V 

P JT_\E  ><  GO  V 

1485 

END; 

./•NFWOUAD*/ 

1 

11446 

PUT_NE  wOUAl 

1454 

SYMB_1  NO  EX  : PROCEDURE  ; 

/•NFWOJAD*/ 

1 

11452 

1457 

I 

11*52 

sv.-io_rN.or  a 

1453 

/•SYW9..  INDEX  RETURNS  SYMBOL  TABLE  INDEX  OF  TEMP.CHAR  • / 

1 

1145? 

sym3_; noe  x 

1459 

1 

11452 

SYH  J_ l NOE  X 

1460 

DECLARF  INOX  FIXED; 

/•NFWQUAD*/ 

J 

11452 

SYv3_IN-.'’:x 

1461 

INOX  * 1; 

/•NEl.C'J  AO*/ 

! 

11464 

SYML'_1  NOE  X 

1462 

DO  WHILE  TEMP_CHAR  ■**  SYMBI INDX) ; 

/•NEW  O'JAO*/ 

1 

11472 

SYMB_ INDEX 

1463 

INOX  a INOX  ♦ l; 

/*NE»  JJAD*/ 

1 

11522 

SYH3_I NOE X 

1464 

ENO; 

/•NEWTJAO*/ 

1 

11534 

>Y  33  1 JOE  X 

1465 

P.FTURN  ! NDX; 

/•NCKOJAD*/ 

1 

11542 

SVHi_ I NOE < 

1466 

FND; 

/'NF WQUAO*/ 

1 

11552 

SY  M3_ I \Dc  X 

1 46  r 

LAB_1NDEX:PR0CEDURE; 

'•NEwQUAD*/ 

1 

llc5« 

1458 

1 

11553 

LAB.INDEX 

1459 

/*L A8_I NOtX  RETURN  LABEL  TABLE  INDEX  OF  TEMP.CHAR  */ 

1 

11558 

LAo_I NOt  X 

1470 

1 

1!  55P 

IA3_!  VOFX 

1471 

DECLARE  INDX  FIXED; 

/*N  E WO  J/.D*  / 

1 

11558 

LA3_IN0cX 

1472 

INOX  = 1; 

/•NF-.OJAO*/ 

J 

11570 

LAB_1 NOE/ 

1473 

DO  WHILE  TCM?_CHAR  -*=  LA3ID1  INDX  I ; 

/<--xr-;uA.o«/ 

1 

1 1578 

L A B_  I N 7 X 

1474 

I NOX  = INOX  ♦ l; 

/•NEwOUAD*/ 

1 

11623 

LAo.lNOEX 

» 

ENO; 

/•NCWQUAD*/ 

1 

11640 

LA2_ INDEX 

1 

RETURN  INDX; 

/•NEWO'IAD*/ 

1 

116  48 

LAB_1N0EX 

1477 

ENO; 

/•NEnQJ AO*/ 

1 

11658 

L A8_I NOE  X 

1473 

CONVAI INOEX: PROCEDURE ; 

r* NEWCUAD*/ 

J 

11664 

147  7 

t 

11664 

CCNV  AL_l NOE 

1430 

/•CONVAI INOEX  RETURNS  CONSTANT  TABLE  INDEX  OF  TEHP.CHAR 

*/ 

1 

11664 

CO-Nv  AL_  I V j r 

1481 

1 

11664 

CONVAL..  IN  )E 

1482 

DECLARE  INOX  FIXEO; 

/•NFWOUAL)*/ 

1 

11664 

comval_in :: 

1483 

I NOX* 1 ; 

/•NEwOJ AD*/ 

1 

11676 

C0N'.'At_lN.0r 

1484 

DO  WHILE  TE MP_CHAR  ■**  CONVAL ( INOX) ; 

/•NEWC'JAi,*/ 

1 

11634 

CONV M I '■{  :2 

1435 

I NO  X* I NOX  *1 ; 

/•NCi-OUAD*/ 

1 

11750 

CUNVAl_INOF 

I486 

ENO! 

/*NFOJAD*/ 

1 

11  762 

conv\l_i.;oe 

1437 

RETU3N  INOX; 

/•NEW  O'JAO*/ 

1 

1 1770 

CuNV  AL_ I NSC 

1483 

ENO; 

/•NEwQUAO*/ 

1 

117  80 

CGNVAl_INCE 

143? 

REAOJUAO! PROCPDUREIOUAONOI ; 

/•NEWOUAO*/ 

1 

11756 

1490 

1 

1 1 736 

RF/OjUAD 

1491 

/•REA00UA3  PRINT  OUT  QUADS  */ 

1 

11736 

RE  AO  O'JAO 

149? 

1 

11736 

READOJAO 

1493 

DeCl  3°  F OUAONO  Fixer-; 

/•NE;-'U  IAD»/ 

1 

1 l 736 

RE  AO  0 » J A 10 

1 49, 

DECLARE  LATEST  FIXED  INITIALCO); 

/♦NCt.OcAP*/ 

j 

11  79.3 

RE  aT.JAP 

1495 

OECl APF< CPNOl .OPNO’.NESiriXEO; 

/•NEWGJAO*/ 

i 

117-5  3 

REA.- 1 JA'J 

1495 

RCO_N"»-I  OJtONO-l  I /MAXJUADS: 

/* NEfcJUAD*/ 

1 

1 1 7°3 

READ  j'JAD 

1457 

IF  RCn.NR  -*  RC0_9JFF  THEN  DO; 

/•’IE -OU/.O*  ' 

1 

113X0 

RE  AD'J'JAD 

1498 

OUADS*F IL  c ( l.RCt'.OUEF ) ; 

y*NE*o;iAo*/ 

I 

1 1336 

RE  A OOJAO 

1499 

R CD_8 JCF*  RC  D_  BUT  F ♦ 1 ; 

/«NrwO'IAD»/ 

1 

11866 

P.E  AO.UAO 

1500 

END! 

/*NE  wC  JA 0* / 

1 

113  78 

RE  ADO'J  AD 

1501 

LOC_OJ  AO  * < 1 OJA  0*’0- 1 1 MOO  MAXQU  ADS  1*4  *1 ; 

/•NEnUJ'.D*/ 

1 

11378 

RtAOwUAD 

150? 

OPep  . QUA JS 1 LOC.QU AO ) ! 

/•NUQUAO*/ 

1 

11910 

r.  r ao  j'j.vd 

1503 

0PN01*Q'l40SILi>C_JUV)MI  ; 

/♦NEW 2U  AO*/ 

1 

1 1 9?6 

REAOOUAD 

1504 

0PNO?»0jA0SI1 OC_OUAD»2l; 

/*-N  EWOU  AD* / 

1 

11946 

P.E  A JO-.IAO 

1505 

HES*QjAOSILOC_OUAO*31 ; 

/•NFWCJ  AU* / 

1 

1 1 ° 66 

REAOOUAD 

1506 

IE  O'JAO*  0 > LATEST  THEN  03; 

/•NEWCUAD*/ 

1 

11«36 

R c AD QUAD 

1507 

LATEST  - QUAD NO; 

/•NEWOUAD*/ 

1 

12002 

REAOOUAO 

1508 

IF  OPER  - LAB  THEN 

/•NCwQJAO*/ 

1 

12010 

RE  AO  3JA0 

* > 

OP  FRA  NO 1*LAHI DIOPNDl)  ; 

/•NExOJAO*/ 

1 

12034 

RE ADOJAO 

• » 

risr  on; 

/♦NEwOllAf)*/ 

1 

1204? 

Ht  MID.IAD 

J 
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lill  1 

It  L i'  ii.il 6 J 1 II.  N 

~ 

« .» . it  * i J <•  . - / 

1 

i.  >j 

r t.  1 J.t  I 

1512  | 

OPERAND1-CDNVAU-OPND1)  J 

/ * N f W 30  A P*  / 

1 

1207* 

READQUAD 

isn  i 

ELSE 

/♦NFWQUAD* / 

1 

12092 

RE ADCUAO 

151*  1 

IF  OPNOl  > 0 THEN 

/•NEw JUAP*/ 

1 

12092 

RFA03UAD 

1515  | 

OPE R AND 1 * SYM0IOPND1) 

• 

/•NEwQUAD*/ 

1 

1212* 

READQUAD 

1516  i 

ELSE 

/•NEwQUAD*/ 

1 

12132 

READQUAD 

1517  | 

0PERAN0l«*0» ; 

/•NEkQUAD*/ 

1 

1213? 

READQUAD 

1518  | 

END; 

1 /*NFwQUAD*/ 

7 

121*8 

RtADQ'JAD 

1519  | 

IF  OPND2  < 0 THEN 

/•NEWQUAD* / 

1 

121*8 

READQUAD 

1520  1 

OPERAND2  = CONV AL (-0PN02 1 ; 

/•NEwQUAD*/ 

1 

121  72 

PE ADQUAD 

1521  1 

ELSE 

'/•NFwO.IAO*/ 

1 

12190 

READQUAD 

1522  1 

IF  OPND2  > 0 THEN 

1 /*NE»QUA"'*/ 

1 

12190 

READQUAD 

1 5?J  | 

OPERAND2  * SV  v.3  ( CPND2  ) i 

/*N  E WQJ AO* / 

1 

12222 

RE  AUQUAD 

1526  1 

ELSE 

/•NEWQUAD*/ 

1 

12230 

READ  0 J A D 

1525  | 

0PERAN02*' O' ; 

/*N  E LOU  AD* / 

1 

1 22  JO 

RE ADOUAD 

1526  | 

IF  OPE P > HALT  THEN  00; 

/•NEWQUAD*/ 

1 

122*6 

P C ADOUAD 

152  7 | 

* I c OPER  < REL  THEN 

/♦NEwQUAD*/ 

1 

12262 

READQUAD 

1523  1 

RESULT  « LAB  I D(  RES  ) • 

/•NEVOUAD*/ 

1 

12286 

READQUAD 

1529  1 

ELSE 

/•NEhOuAD*/ 

1 

1220* 

Rf AO  OJAD 

1530  | 

RFSUi.T=SYHd<RES)  ; 

/•ME  .-JQUAO*/ 

1 

1229* 

RE  AQQUAD 

1531  | 

END; 

/•VFWUJAO*/ 

1 

12318 

READQJAO 

1532  1 

IF  OPER  <=  HALT  THEN  DO; 

/•newouao*/ 

I 

12318 

READQUAD 

1533  I 

IF  PES-=0  THFfJ 

/•Nf  RQUAD*/ 

1 

1233* 

RE ADJUAD 

153*  1 

RFSULT  » SY-BIRFS) ; 

'•NEWQJAD*/ 

1 

12358 

READQUAD 

153e  ‘ 

END; 

/•NEwQUAD*/ 

i 

12366 

READQUAD 

153 

if  res-o  then 

/* NEWQJ40*/ 

1 

12366 

READQUAD 

1537  i 

RASULT-'O* ; 

/*  NEb.'JAD*/ 

1 

12350 

RE  ADOUAD 

1533  1 

BUEFEP  = P\0I  • 'll  ALPHMCPER)  , 13 > ; 

/•NEW QUAD*/ 

1 

12390 

RE AUQUAD 

1539  1 

3 UF  F EP.=  P \ D!  PUFFER  | | OPER  AND  l , 2*  I 

• 

/•NEWQUAD*/ 

1 

12*38 

READQUAD 

1 5'»0  | 

3UrFE8=PA0{  BUPfERI  1 0PEP.AND2 , 3*  1 

• 

/*NFWQUAD»/ 

1 

12*78 

RE  ADOU  AD 

15*1  1 

BJCFE®  = ,MQI  9JFFERI  ) .3  c S'JL  T , * 8 1 l 

/•NFWQUAD*/ 

1 

1251  8 

READQUAD 

1**2  1 

RU'rFR=PAD(  SUFFER  I |PCD_NR,57I  ; 

/•NEwOJAD*/ 

1 

12558 

RF  ADDUAD 

15*3  1 

3 JFFF«=?AD( SUFFER! iLOC_QUAD.  80 1 

t 

< *NE  WCUAD*/ 

1 

12606 

RFAOCJAD 

15**  | 

CUT P JT* BU EF E.R  ; 

/•NE-.QJAD*/ 

1 

1265* 

RE  ADOUA  D 

15*5  1 

END; 

7*N  Ew  JJ  AD*/ 

1 

1267* 

READQJAO 

15*6  1 

END; 

/•NEwQUAD*/ 

1 

126  7* 

READQUAD 

15*7  | PR! NT^NEwOU ADS: PROCEDURE; 

15*5  1 

15*9  1 /•PR|NT_NF.W3JADS  PRINT  OUT  REGISTER  QUADS  • / 

/*NE  W0U4D* / 

1 

1 

1 

12*80 

12680 

12630 

PR  I N T_NE  wJUAD 
PR l N T_N r WO  J A ) 

1550  | 

1551  | 

DECLARE  CASE_NUM{30I  FIXED  INITIAL10, 

/•NEWQUAD*/ 

1 

1 

12630 

12630 

PR  1 \T_NEr.0  JAP 

PR  INTONE  * Q J V 1 

1552  | 

1. 

/•NEWQUAD*/ 

l 

12  692 

PR  1 N T_N  E».  0 J AD 

1553  1 

1 . 

/•NEWQUAD*/ 

1 

12692 

Pk  im_nekq jad 

155*  1 

1. 

/•NEwOUAD*/ 

1 

12692 

PR  I N I_NE  n.  JO  V.) 

1555  | 

0, 

/•NFwcjaD*/ 

1 

12692 

PR  INT_NFwOUAD 

1556  1 

0, 

/*NE*3UAD*/ 

1 

12692 

PR  1 Nf_NEwQJAD 

1587  1 

3, 

/•NCwQJAD*/ 

1 

12652 

PP ! NT_NEt>  DU  A ' 

1553  | 

• 

6. 

/♦NFwQU AD*/ 

1 

12652 

PE .l\T_\Ew QUAD 

1559  1 

2, 

/•NEwQUAD*/ 

1 

1260  2 

PP!NT_NE..  JU  •./> 

1560  1 

2. 

/•NEWQJAD*/ 

1 

12*92 

PRIM  T_NF  *Qi,A  D 

1561  | 

0, 

/•NFkC JID*/ 

1 

12692 

Pk 1 N 7_NP«  2 J» ) 

1562  | 

1. 

/•NEwQUAD*/ 

1 

12652 

PRINT.NCltQJAD 

1563  1 

1. 

/*NE*QU\0*/ 

1 

126/2 

PRINl_N,:WCj\5 

156*  | 

1. 

/•NEWQUAD*/ 

1 

12692 

PR  i N I_NF  WQNA  1 

1565  J 

0, 

/•ME WCUAD*/ 

1 

12692 

PRINT.Nf  UQUAr, 

1566  1 

0, 

/•NEwQUAD*/ 

1 

12692 

P R 1 N T _N  E w 3 J A ; 

1567  | 

0, 

. •NEWQUAD*/ 

1 

12692 

PRINT_NEWT  j.tD 

1568  1 

" 

0. 

/♦NEWOUAD*/ 

1 

12692 

PRI.NT_NEwyu.VJ 

156  • 

0, 

/♦NtWQ'JAD*/ 

1 

12692 

PRINT_MEWQJAD 

15 

0, 

/•NFWQUAD*/ 

1 

12652 

PK l NT_NC  »Qu AQ 

1571  | 

0, 

/•NEWOUAO*/ 

1 

12692 

P“ 1 NT_ NEwQUAD 

1572  | 

0, 

/•NEWQUAD*/ 

1 

12692 

PK  I NT_NE  WC’J  A ) 

1573  1 

0,  • 

/•NEwQUAD*/ 

1 

12652 

PR1NT_NEW  QUA) 

157*  | 

0. 

/•NEWCUAD*/ 

1 

12692 

PRINT.NEWOjAD 

1575  | 

*. 

/•NEWQUAD*/ 

1 

12692 

PR  I NT_NE  wCUAQ 

15  76  | 

7, 

/♦NTWQUAO*/ 

1 

12692 

Pri  1 NT_Nl*  WQijAU 
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1577  I 

B , 

/ *w. ..  - j A ;* / 

I 

1/6*2 

** t'.  1 , i _ i - 

1578  | 

7, 

/♦NEkOuAD*/ 

1 

12  697 

PR  I NT_NEkC J 

1579  | 

0, 

, *N  E kOJ  AD*  / 

1 

12692 

PR  l N T_Nrk0J.*.r 

15P0  | 

0, 

/♦NFkQUAD*/ 

1 

12692 

PR INT_ME  kOJA 

1581  | 

01; 

/*NtKQUAD*/ 

1 

12692 

PKINtInE  QUA' 

158?  1 

OUTPUT  HI  » *1  NEW 

QUADS* ; 

/ *n  r wo j ad*  / 

1 

12692 

PR  INT_Nt  U0J4 

1583  1 

DOUBLESPACE  5 

/♦NEWOJAD*/ 

1 

12716 

PR  INT_*JEhJj;. 

1584  | 

OUTPUT  * • OPERATOR  0PEP4ND1/ 

QPERAND2 

RESULT'; 

•/♦NEkOJAD*/ 

1 

12  740 

PR  I nT_nF  wsu  A: 

1585  | 

OUTPUT  * • CONDITION 

LABEL* ; 

/•At  WO'J  AO*  / 

1 

12  760 

PR l \T_NE  kOu  A 

1586  | 

BR_riMi=FAlSE  ; 

/♦NEwClAD*/ 

1 

12780 

PR  1 N 7_N  r..O  J A; 

1587  | 

CUR8_M1C«05 

/•NE'iO  JAD*/ 

1 

12736 

PRlNT_NEwOJAf 

1588  | 

buffer** 

GENERATED  MICRO  WORDS'; 

/*NcW JJAD*/ 

1 

12792 

PR  1NT_NF.W0JA 

1589  | 

BUFF  ER*®AO( 3UFFER.80I; 

/•NEWOJAD*/ 

1 

12300 

PR  1 W T_N  F WO  J A 

1590  1 

OUTPUT ( 3 ) * 3J  CF  ER  : 

/•NEkOJAD*/ 

1 

12824 

PRINT_MEkOJA' 

1591  | 

B'JFFCR  = PADIX70,801; 

' /*NC  kOU AD*/ 

I 

12848 

PR  I N T_Nf kOuA 

1502  | 

Out°ut(3 j=bjffeR; 

' /♦ NEWQJ  AD*/ 

1 

12872 

ppint_nfwoja: 

1553  1 

BUFFER*'  l C C K C C C 

B 0 

S 

A S'  1 I 

/♦NT  wQ J AD*/ 

1 

12896 

print_i,EwQua: 

1594  | 

• S S S U S 

R 

U'; 

/•Nfck'QJAEr*/ 

1 

12356 

PKJ.NT_NEk.QUA 

1595  1 

BUFF ER=PA01 BUFFER, BO); 

/♦NFWQUAD*/ 

1 

12920 

PRINT_NEwQJA. 

1596  | 

0UTPUT«3I*BJFFER; 

/•NEWQ'J  AD*/ 

1 

12944 

PR  1 NT_N EwGJ  a' 

1597  | 

BUFfER*'  0 L I R B 0 8 

U A 

p 

L 8 ' I 1 

/♦NEWOJAD*/ 

1 

12966 

PR  1 N T_NE  kOJ A 

159  8 1 

• 8 D B B R 

I 

P'; 

/♦NEkOJAD*/ 

1 

12963 

PP 1NT_NFwiJ JA. 

1509  1 

BUFF  FR*p  AD(  p’j  RF  FR , 90  ) ; 

/♦.NEWOJAD*/ 

I 

12992 

PR JNT_NE»9JA' 

1609  | 

OUTPUT  m = B'JFfER  ; 

/•NEkCUAI)*/ 

1 

13016 

print_ne».;j.-. 

1801  1 

BUFFER*'  C K P.  A 

S D 

s 

U CM  I 

/♦NEWOJAD*/ 

1 

13040 

PRINT_.JE.0U4 

160?  | 

• M M A F X 

F 

F*; 

/♦NEkOJAD*/ 

1 

13040 

PPlNT_NEnQJV 

1803  1 

BUFF£R*PAO( BUFFER ,801 ; 

/•NEkQUAD* / 

1 

13064 

PR  I NT_NEk 0 J .4 

1604  | 

OUT?  UT(31  = BJFFFRJ 

/•NF.OJAO*/ 

1 

13098 

P«INT_NEk  3JA 

1605  1 

00  11*0  TO  NEwQUADNO-l  BY  4; 

/•NFkQJAD*/ 

1 

13112 

PRlNT_KFkG  JA' 

1606  1 

0 PE  R*  Nc  wOUA  0( 11); 

/♦NEWS J AD*/ 

1 

1315S 

Pkl NT_NEkOUA 

ltO’  t 

OPERA T I ON* ALnH A1  0?£r.  1 ; 

/♦NEWOJAD*/ 

1 

131  74 

print_ne«oj.’.: 

16- 

DO  CASE  CAS  F_NJ9 ! CPER  ) ; 

/*Nf  wO'IAU*/ 

1 

13190 

PRINT_NF*T„.\; 

160  . , 

DO; 

/•NEV.OjAD*/ 

1 

13222 

PR  I NT_NEk  J J . 

1610  | 

OPE  R AND 1 = ' R 1 1 INEWQUADI  !!♦!); 

/♦N  EwOJ  AL'*/ 

1 

13222 

PP.  INI.NckOU*' 

1611  1 

0?  F.RAN'D2*  • 0 • ; 

/♦f.TkQJAD*/ 

! 

132  66 

PR l NT_NF  WCU A 

1612  | 

RESULT* • R* I 1 NEWQUAOI 1 1 *3); 

/•.NFWQJAO*/ 

t 

152  74 

PRINT_NC*CJ4 

1613  ) 

ENO; 

/♦NEk'QJAO*/ 

1 

13a1  3 

PR  1 NT_Nf  »0 JA 

1614  | 

o 

o 

/•NEkOJAD*/ 

1 

13318 

PRINT  NFhOJA; 

1615  | 

DPE  R AND  1*'  R * I | NEWO'JAOf  I 1*1  ) ; 

/•NEkOJAD*/ 

1 

13326 

PR  I NT In: kCjJ. 

1616  1 

OPERAND’*'*'  | ! NrWC'JADt  I ( *2  ) ; 

/♦NfWOJ AD*/ 

1 

13  570 

PR)NT_Nc.\JjA‘ 

1617  | 

RESULT*'R'| INEWQJADI 11*3); 

/*NE kO  JAD*/ 

1 

13414 

PRl.Nr_NE-:uA. 

1619  | 

ENO; 

/*NE  »OJAJ* / 

1 

13458 

PR  I NT_NEwCU .*  ' 

1419  | 

00; 

/♦NEkOJAD*/ 

1 

l 345b 

PRINT_!JE«1jA" 

162  0 | 

JJ*NCW0JA3< 11*31  ; 

/•NEWCJAUV 

1 

13466 

PR  I”  T_f»tw i.ja* 

1601  1 

0PcKAN01*'h> | I NEHQJ AD( 11*1 ) ; 

/♦NFkQUAC*/ 

1 

13486 

PRI NTIrEWUJA 

1622  ! 

OPERAND?*' O' ; 

/♦NFkjJAO*/ 

1 

13  530 

PKlNr_NF,.„  JA  ' 

1 6?3  1 

RESULT*LA3J0I JJ) ; 

/•NFWQUAD*/ 

1 

13833 

PP  ! WT_NF  a J JA 

1624  | 

E *1.0 ; 

/♦NEkOJAD*/ 

1 

13554 

pr i nt_me  we j a: 

1625  | 

03  J 

/♦NFWO’JAO*/ 

1 

13554 

PR  I NT_NEk J JA 

1626  | 

OPERAND  1* • 0 • ; 

/♦NEWQJAD*/ 

1 

13552 

°R  1 N T_N  E w J J A ' 

1627  | 

OPF  RAN02*' O'  ; 

/*NF  W'OUAD*/ 

1 

12870 

PP  I Nt_NFwOJA'. 

1678  | 

RESULT** o*; 

/*NE«OJ  AD*/ 

I 

1 3579 

PR  1 NT_NE  kO'J  AO 

1629  1 

ENO; 

/♦NCuCJAD*/ 

1 

13596 

PR  I U T_N  CW  0 J A 

183  0 | 

od; 

/•NtWQJ AO*/ 

I 

13586 

PR  I N I_N c k v J ' 

1631  | 

J J*Nc  W9U  AD ( 11*1  IS 

**\r«ojAj*/ 

1 

13584 

PR  I N T_NE  « 0 J 4“ 

1632  1 

0PER4ND1=LABIDI JJ)  ; 

/♦NEwii  JAD*/ 

1 

13614 

P R I N T_  N E k « J A C 

1633  1 

0PERAND2*  * 0*  ; 

/•NEhOUAJ*/ 

1 

13630 

PR  IN  l_NE  *C  J A '' 

1634  | 

RESULT*' O' ; 

/♦NEWOJAD*/ 

1 

13639 

PRI NT_NFkO JAP 

1635  | 

ENO; 

/♦NbwQJAD*/ 

1 

13646 

print_ni'r'3ja; 

1636  | 

t 

/•MCWCJAO*/ 

1 

13646 

PR  I N T_NF  *0U?  0 

1637  1 

oo ; 

/•NEkOJAD*/ 

1 

136  54 

PR l NT_Nrk 30  AD 

1638  | 

jj=nfkouadi i i *3) ; 

/•NEWOJAD*/ 

1 

13662 

PR,  .NT_NEV-'3JA" 

1639  | 

0°E  R AND l* 'O' ; 

/♦NEwCJAP*/ 

1 

13652 

PRINT_NE«  0J.4D 

1640,1 

0PERAN02*' O'  ; 

/♦NEWOJAD*/ 

1 

13690 

PR  I N T_NE  k jUA J 

164'  1 

RESULr*LAB10(JJ); 

/•NEWQUAD*/ 

) 

13698 

PRINT_NEWOUAO 

It 

FND ; 

/♦iif-wOUAD*/ 

I 

13714 

PRINT  nr..  J * r 
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lo'.  ; i 

l)  J f 

J"  / 

1 

l j i i •* 

•»  1.  1 ••  A. 

1644  t 

JJ-NFWQUADI  11*1); 

/•NFWOUAl)*/ 

1 

13722 

P«1  NT_.NC-W3JAL 

1645  | 

IF  JJ>0  THEN 

/•NF..0UA3*/ 

1 

13742 

PE.  1 NT_N  F W 3 J AC 

1646  | 

UPEPANOl-SYMBIJJ) ; 

/•NFWOUAD*/ 

1 

13766 

PR  J N T_NE  «C JA  3 

1 64  7 | 

ELSF 

/•NEW3JAQ*/ 

1 

1 3 774 

PRlNT_NEnO JA  ) 

1648  1 

0PFR  AND  1 =C0NV AL I -J J 1 ; 

/•Nr,  ?'/  AD-/ 

1 

137  74 

PP  I NT_NF,-.0. ;.v; 

1649  l 

OPERAND?-’ O’ ; 

/♦NCwCUAJ*/ 

1 

13838 

PRI.NT_NEwOJAO 

1653  | 

RESULT-’R*  1 |NEWQUA0m*3>; 

/•NErlJAD*/ 

1 

13316 

PR  I NT_NS  WJ  Jd ' 

1651  | 

END; 

/♦NFwCJAi)*/ 

1 

13360 

PRl.NT_NFwOUAD 

1642  ( 

03; 

/•NFWOUAD*/ 

1 

1336  0 

PR  1 NT.NEWO JAD 

1651  | 

JJ=NEW0JADUI*31  ; 

/•NEWOJAD*/ 

1 

13868 

PR  I N T_NF  WO  UAO 

1654  | 

0PERAND1=’R’  I 1 NEWQU AD( 1 1 * l ) ; 

/•NE-OJA?*/ 

1 

138RF 

PR  1 NT_NF  -C'J  A 3 

1655  | 

OPERAND’'’ O’  ; 

/•NEsQJAJ*/ 

1 

13932 

PR  I NT_NE-Cl  J A3‘ 

1656  | 

RESULT-SYMBI JJI ; 

/•NEWOJAD*/ 

1 

13940 

PRlNT_NFwOUAD; 

1657  | 

end; 

/•NFWOUAD*/ 

1 

13556 

Pk  1 NT_!JFkCJA3! 

1658  | 

END; 

/•NcWO'JAO*/ 

1 

13956 

PR 1 NT_NE  WQU  A3‘ 

1659  | 

B 'JFFER®  °ADI  • • | | 0PER AT! ON , l 3 1 1 

/•NEwQJAC*/ 

1 

13964 

?rint_n=wojad: 

1660  1 

8UF FE  R=  PA 01  BUFFER  1 1 0»ER AN01 . 24 ) ; «" 

/•NE-QJAD*/ 

1 

140  04 

PRlNT_NF«CJADi 

1661  | 

(5ijCFCR=PADl  3JFFERI  1 0?ER AN02 , 34  1 ; 

/♦NEWOJAD* / 

1 

14044 

PRI NT_NtwOJADC 

1662  1 

RUFFER-PADI  BJFFERJ  |P.ESULT,48I  ; 

/♦NEhOJAD*/ 

1 

14084 

PR  I NT_NEwOjA05 

1663  ) 

OUTPUT  * bjffer; 

/•NEwQJAD*/ 

1 

14124 

PR1NT_NF, jJAOE 

1664  | 

CALL  MIC_GCN; 

/•NcWO'JAO*/ 

1 

14144 

Pk1NT_NEwCJA1S 

1665  | 

END ; 

/•N  EnCJ A3*/ 

1 

14152 

PRINT_NE..3JA0i 

1666  j 

ENO; 

/♦NEWOJAD*/ 

1 

14160 

PR  I NT_NE WQJ AOS 

1667  | 

SORTsPaOCEOUREI  A,  91; 

/•NEWOUAO*/ 

1 

14166 

1669  1 

1 

14166 

SORT 

1669  1 

/•SORT  SORT  SORTNUN  OR  SORTREF  ARRAY  */ 

1 

14166 

SORT 

1673 

1 

14166 

SORT 

1671 

DECL AR e 15,  SNTTCHI  BITI9); 

/•NEWQJAO* / 

1 

14166 

SORT 

1672  | 

OECLARCI A * C , 0, TEMP1FIXED; 

/•  Nc  ..'OUAD*/ 

1 

141  78 

SORT 

16  73  1 

SWITCH  * TRUE; 

/• NEwOUAO*/ 

1 

14178 

SCR1 

1674  | 

o*o; 

/•NEWOUAO* / 

1 

14186 

SORT 

1673  | 

00  while  SWI  TCH  = TRUE*. 

/•NEwPj  in*/ 

1 

14192 

SORT 

1676  1 

SWITCH  = FALSE; 

/*  NE  wGU  A3* / 

1 

14210 

SORT 

1677  1 

00  C - 0 TO  A - 1 ; 

/•NEWOJAD* / 

1 

14216 

SORT 

1678  | 

IF  B=  true  then  od; 

/•NFWOUAD*/ 

1 

14264 

SORT 

14*9  | 

IF  S1RTNU  3 1 C 1 > SOPTNUNI  C ♦ 1 1 THEN  00; 

/•NEiOJAO*/ 

1 

14262 

SC?T 

1631  | 

TE  H°  = S0PTNUM1CI; 

/*  NE-OU  AD* / 

1 

14313 

SORT 

i 6 | 

S1«TNUW(CI  = SORTNUM 1C*  l ) , 

/•NT -DU  AO*/ 

1 

14334 

SORT 

’.692  | 

SORT  N J1  ( C*1 l-TEMP; 

/•NE-QJAD*/ 

1 

14362 

SORT 

1633  | 

TFWP  * SORT R EF ( C 1 ; 

/•NCWGJAD*/ 

! 

14382 

SCwT 

16  34  1 

SORTPEFIC)  - SUPTREFIC+l J; 

/♦NEWOJAD*/ 

1 

14399 

SORT 

1685  1 

SOSTREF! C*1 1-  TERP; 

/♦NEWOJAD*/ 

1 

1442', 

SCRT 

1616  | 

T F MP-REG N0( C 1 ; 

/*  NT  .'CJ  A 3*  / 

1 

SDK! 

1637  | 

RFG;3(C1=  REGNO! C*1 1 ; 

/•NEwOUAD*/ 

1 

14462 

SOW  T 

1683  | 

RFGN0IC+1 1-TEMPj 

/•NEWCJAO*/ 

1 

14490 

SORT 

1689  | 

SWITCH-TRUE; 

/•Nf hOJAO*/ 

1 

14510 

SORT 

1693  1 

F’I9; 

/•NFWOUAD*/ 

1 

14518 

SORT 

1691  J 

END; 

/♦NE-OJAO*/ 

1 

14518 

SORT 

1692  | 

ELSE  00; 

/•NEWCUAD*/ 

1 

14518 

SORT 

1611  1 

IF  SORT  PEE  I f 1 > SORTRcf 1 C*1  1 THEN  00; 

/♦NEWOJAD*/ 

1 

14526 

SOkT 

1 1696  1 

TE'AP-snRTNU’MC)  ; 

/•NtiwGU  AD*/ 

1 

1456  2 

SORT 

! 1695  | 

SORTNUMICI'SORTNUWIC*!); 

/*N'  WO'JAD*/ 

1 

14578 

SCRT 

’ 1656  ) 

SOPTNU'Mf>l)=TFMP; 

/•NEWQU’.D*/ 

1 

14606 

SORT 

’ 1607  | 
1 693  | 
\ ,609  | 

TE3P-S0RTPEF IC1  ; 

/•Nt'VQJAO*/ 

1 

14626 

Sjrt 

S0RtRrt(CI=S03TRFF(C+ll; 

/•NF-OJAD*/ 

1 

1464  2 

SORT 

SnRTREF(C*l)=TEMP; 

/•NEwJUAD*/ 

1 

14670 

SORT 

* 703  | 

TENP-REGNO(C) ; 

/•NFwQJAD*/ 

1 

14690 

SORT 

711  t 

REGNO  1 C 1 *R  EGNO! C * 1 > : 

/•NC-CJAD*/ 

1 

14706 

SORT 

712  1 

REGN0!C*1 l-TENP; 

/•NtWCUAO*/ 

1 

14734 

SORT 

701  | 

SWITCH-TRUE; 

/•NFwGJAJ*/ 

1 

14754 

SORT 

a T.i4  i 

END; 

/•NEWOUAD*/ 

1 

14762 

SORT 

: 705  1 

END; 

/‘NEWCUAD*/ 

1 

14762 

SCRT 

.706  1 

FNDS 

/•NEWCJAO*/ 

1 

14762 

SORT 

.707  | 

0*3*1 S 

/•NEWOJAD*/ 

1 

14770 

SCRT 

-,709  | 

/ 

* j 

END; 

■ lain-i  ■ in  nm  -TiBirr'**'  ' 1 mtmm W 1111*'  ' 

/*NEt QUAD*/ 

1 

1 ',7H? 

sort  r 

H I "v  .. .. I ; I m u ' I — • - --  ■ 
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l 

I 

0 - 3i 

/.  j • . , W 

1 

i **  / > w' 

Sj  1 

1710 

1 

DO  C * 0 TO  A - l; 

/•NFvcJJAD*/ 

1 

14796 

SORT 

1711 

1 

IF  8=7RUE  THEN  00; 

/•NEWQJAD*/ 

1 

14342 

SORT 

1712 

1 

IE  SCP.TNUMt  C 1 * SGRTNUM 1 C*  l 1 THEN 

/*N  E r.Q  J AD*  / 

1 

14650 

SJPT 

1713 

1 

0*0*1; 

/•NEwQJAD*/ 

1 

14904 

SORT 

1714 

1 

ELSE 

/•NDilQJAD*/ 

I 

14908 

sura 

1715 

i 

RETURN  0; 

/•NCwQJAfl*/ 

1 

14909 

SORT 

1 716 

1 

END; 

/•NEwQJAD*/ 

1 

14926 

SORT 

1717 

1 

ELSE  DO; 

/•NEwQJAD*/ 

1 

14926 

SORT 

1718 

1 

IF  SORTREFtCl  * SORTREF !C*l 1 THEN 

/•NEwQJAD*/ 

1 

149J4 

SORT 

1719 

i 

0 = D ♦ l ; 

/•NEW J IAD*/ 

1 

14978 

SORT 

1720 

» 

ELSE 

/•NEwQJAD*/ 

1 

14992 

SORT 

1721 

I 

RETURN  D; 

/•NEwQJAD*/ 

1 

14982 

SORT 

1722 

1 

END; 

/•NEWQJAD*/ 

1 

l 5000 

SORT 

1723 

1 

FNQ; 

/♦NCWOJAD*/ 

1 

15DOO 

SORT 

1774 

1 

RETURN  0; 

/•NEWQJAD*/ 

1 

15C09 

SORT 

1725 

1 

END; 

/4NfwQUA0*/ 

1 

15018 

SURT 

1726 

1 

DEALLOCATE; PROCEDURE; 

/•NEwQUAD*/ 

1 

15024 

1727 

1 

1 

15024 

OE AtLOCAl 

1728 

1 

/•DEALLOCTE  DEALLOCTES  A REGISTER  FROM  VARIABLES  ASSIGNED 

TO  IT 

1 

15024 

DEALL9CAT 

1 729 

1 

1-  DEALLOCATE  THE  REGISTER  WITH 

NO 

TEMPORARY 

VARI  ABL?: 

AND 

1 

15024 

DEALL0CA1 

1730 

1 

LEAST  NUMBER  OF  VARIABLE. 

1 

15024 

DEAL  LUCA'. 

1731 

1 

2-  IE  TWO  REGISTER  HAVE  THE  SAME  NUM3ER  OF  VARIABLES 

SSIGMED 

1 

1502  4 

DEALL'.iC-'T 

1732 

I 

TO  THEM,  THEN  PICK  THE  ONE  THAT 

HAS  NOT  BEEN  REFRENCEO 

1 

15024 

DEAi.t_r.CAI 

1733 

1 

LATELY . 

J 

15024 

DcAlLUCAl 

1734 

I 

3-  IF  NO  REGISTER  IS  FOUND  WITH 

NG 

TEMPORARY 

VAPI  ABLE 

, THEN 

1 

15024 

JEALLDCM 

1735 

1 

PICK  THE  REGISTER  THAT  HAS  LEAST 

NUMBER  OF 

TENPOR ! R Y VARIABLE 

> 

4 

15024 

oeallocm 

1716 

1 

*/ 

1 

15024 

DEALLuCAl 

1737 

1 

I 

15024 

C".l  ALLf'C  A* 

1738 

1 

CECl 4P6( temp, peg, minimum; fixed; 

/•NEWOJADV 

I 

1 

150?  4 

DE  ALLOC.  M 

» 7 39 

• 

• 

DECLARE  TEMP  VARMUMI 6 1 FIXED; 

/•NEwQJAD*/ 

1 

15036 

of  alloc a ; 

,0 

1 

DECLARE  TEMPR-GNGI  6 1 FIXED; 

/♦NEwQUAD*/ 

1 

15.-36 

Dc  ALLOC 4' 

- .41 

1 

KK  * 0; 

/*N  EWQJ AO* / 

1 

15036 

DEAL!  lit. AT 

174? 

1 

JJ  = 0; 

- 

/•Nf  WQUAiJ*  / 

I 

15042 

DE  A LL  GC  A T 

1743 

I 

03  I r = ! TO  MAXPEG; 

/*  .'EwO'JAO*/ 

1 

1594  9 

DC  An  I.CAT 

1 744 

1 

IF  DEALL3CABL (III  = FALSE  THEN  DO; 

/•NFwQUAO*/ 

1 

15092 

OEtlLQCAT 

1745 

1 

IF  TEMP! ! 1 ) * 0 THEN. DO; 

/•NCvJUrt  Jt/ 

1 

151. •. 

cealldcai 

1 744 

1 

if  varnum; r i i = i then  do; 

/ *N  C ,'G J AD*/ 

1 

1 5 1 3 S 

DC  AI.LDCA1 

l 747 

1 

LL  * POINT! Ill; 

/•NcWCUAD*/ 

I 

15162 

oeallgcai 

174  9 

1 

IF  PYTE.’ VAPJBLSILD.O)  >=  BYTE!  • 

0*  ) 

C 

/♦NEWGJAD*/ 

1 

151  78 

DGHL0CAT 

174  9 

1 

BYTE!  VARI  JLSUL1 , 01  <=  BYTEC9M 

THEN  DO; 

/*'■'.  E JJ  AD*/ 

1 

15216 

DCA._Lf.CAI 

1750 

\ 

NEXT_VAp(Ll)  * LAVS; 

/•NE'wQUA  0*/ 

1 

13269 

DE ALL  OCA I 

1751 

1 

LAVS  = LL; 

/*N  E WSJ  AD* / 

1 

15254 

DEALLCCAT 

1752 

1 

RD  = TRUE; 

/ *NE'.Q  J A0»/ 

1 

15292 

Or  ^ w. cp C • 

1753 

1 

RETURN  II; 

/•NcwQ'JAD*/ 

1 

15300 

OF  Al  LCC4 1 

l 754 

i 

END; 

/*NF„QUAD*/ 

1 

15310 

Dt  At  tOCAT 

1755 

1 

ELSE  DO; 

/ *.N  t x C J AD*/ 

1 

15310 

DE  Al  L 01.  M 

1755 

1 

IF  CHANGEILL*  * FALSE  THEN  DO 

» 

/•NEWQUAO*/ 

1 

15318 

DEALLDC.AI 

1757 

1 

NEXT  VARILLI  « LAVS; 

/♦NEwQJAD*/ 

i 

15340 

OE  AL  LOT.  A I 

i 753 

1 

LAVS  * ll; 

/ *N  E wQ'J  AD*/ 

i 

15356 

DE  ALLOC  AI 

1759 

1 

RD  = TRUE; 

/•NEW QUAD* / 

i 

15364 

DEAlLCK  AT 

1760 

1 

RETURN  If; 

/*NC  WOJ AD*  / 

i 

15372 

D E A L L 0 f.  -•  l 

1761 

I 

END; 

/•NCwUJAQ*/ 

i 

15382 

DCALLCC..1 

1762 

1 

S0RTRFFIJJ1  = REFRENCEI 1 1 I; 

/•NT-.  QUAD*/ 

i 

15  362 

DEAL  L DC  A’ 

1 763 

1 

SOPTNUM(JJ)  * VARNUMI II  I; 

/•NEwQJAD*/ 

i 

18406 

DE  ALl  IC  a : 

1 764 

1 

REGNO! JJ)  = II; 

/•NEwD'JAD*/ 

i 

IV*?  3 

de  alloc  a i 

1765 

1 

J J = JJ  ♦ 1 ; 

/♦NEWJJAD*/ 

i 

DEALLPCAr 

1766 

END; 

/•NEwQ'JAD*/ 

i 

164  5 D 

OE  All DC  AT 

t 767 

1 

END; 

/•NEwQJAD*/ 

t 

14458 

OtwL)  UC Al 

1 74  9 

1 

ELS F DO; 

/•NcWOUAD*/ 

i 

15453 

OF  ALLOC  AT 

1 769 

1 

SORT  REF ! J J ) * REFRENCEI III, 

/•NEwQJAD*/ 

i 

DcALLOCA) 

1770 

1 

SORTNUMUJI  * VARN’JMI  III; 

/•NEwQJAD*/ 

] 

1 5 ’.90 

Dt ALlOCAT 

1771 

I 

REGNO! J J 1 « ll; 

/•NEwQJAD*/ 

i 

15814 

deallcc  -at 

1772 

JJ  * JJ  *1; 

/•NEWQUAD*/ 

i 

15530 

DEALLCC41 

* 773 

1 

END; 

/•NEWQJAD*/ 

i 

15542 

DEALLDCAT 

74 

! 

FNii; 

/•Nf  I'M  1 AD*  / 

1 

1444,7 

or  A|  1 it'  A ; 

/ 
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l lit 

i 

K.6r  1..; 

/'.  ( L <■  ! 

1 

l//*(. 

./.•  -L ; .•  • • 

IT75 

1 

TEMPVARNUMTKKI  - VARNUMIII); 

/• NT  hQJAO*/ 

1 

15550 

DEALLOCATE 

1777 

1 

TEMPREGNOI KK 1 = ITS 

/•NFwDUAO*/ 

1 

15577 

OE ALLOCATE 

1778 

J 

KK  = KK  ♦ l; 

/•NEwCJAO*/ 

1 

15590 

DEALLOCATE 

17/9 

1 

END ; 

/*WC«OUAO*/ 

1 

15602 

DEALLOCATE 

1797 

1 

END; 

/•Ntr.O'J  Vl»/ 

I 

16602 

OE ALLOCATE 

1791 

1 

END; 

/•NEW3UA0*/ 

1 

15502 

DEALLCCAT  e 

1767 

1 

IF  JJ  * 0 THEN  DO; 

/*NC  W'CU  49*  / 

1 

ISolO 

DEALLOCATE 

1793 

1 

MINIMUM  = 10 0; 

/•NFbDUAD*/ 

1 

15.626 

OE  ALLOCATE 

1787 

1 

00  II  = 0 TO  KK  -li 

/♦NEftOUAD*/ 

1 

15637 

DEALLOCATE 

1785 

1 

IF  TEMPVARNUMU1)  < MINIMUM  THEN  00; 

/♦NEmGJAU*/ 

1 

15590 

DEALLOCATE 

1736 

1 

MINIMUM  = TEMPV4RNUMU I 1 ; 

/ *N  E «0  J AD*/ 

1 

15797 

deallocate 

l > 37 

1 

REG  = T EHPREGNO ( 1 1 ) ; 

/*NF  nD'J  AO*  / 

1 

15720 

OF AlLOCAT  E 

* * 

* 

END ; 

/•NEkGUAU*/ 

1 

15736 

DE  ALLOC  AT  r 

' * 4 

( 

END; 

/•ne.cjuad*/ 

1 

15736 

DEALLOCATE 

17 

1 

end; 

/♦NEhDUA'J*/ 

1 

15777 

Dt ALLOCATE 

1791 

) 

ELSE  00; ' 

/♦NEWGUAO*/ 

1 

15777 

deallocate 

1792 

1 

IF  JJ  -=  1 THEN  00; 

/♦NEWD’JAD*/ 

1 

15752 

DEALLOCATE 

1793 

1 

II  * SORTI JJ-l .TRUE); 

/ •NEW  QUAD*  / 

1 

15/68 

DEALLOCATE 

1 737 

1 

KK  = SORT ( II .FALSE); 

/•NtwOUAD*/ 

1 

15300 

0EA1  LOCAT  E 

l 795 

1 

REG  * RCGNO(O); 

/•NEWOJAD*/ 

! 

15926 

DE  ALLOCATE 

1 736 

1 

END; 

'•NfcWCUAD*/ 

1 

1 53*0 

DEALLOCATE 

1797 

1 

ELSE 

/♦’•irwQUAO*/ 

1 

15S70 

Or  ALL  OF  A 7 £ 

1 

REG  * REGNO (0) ; 

/♦NEW3UA9* / 

1 

15870 

DEALLOCATE 

1 < 

t 

ENO; 

/•NFWwUAO*/ 

1 

15362 

DEALLOCATE 

1 309 

1 

LL  = POINT (PEG); 

/•NEnwUAO */ 

1 

15862 

oe  allocate 

1801 

> 

DO  I I = l TC  V A RN’J  M ( P r j ) ; 

/•NE.JCJAD*/ 

1 

15976 

deallocate 

12  3? 

1 

I?  CHANGE  ILL)  = TRUE  THEN  00; 

y *Nc "C J AD*/ 

1 

15°30 

OE  AL  LOCAT £ 

1833 

1 

1 

17952 

DEALLOCATE 

1993 

1 

/•GENERATE  A WT  REGISTER  O'JAD  */ 

1 

159  52 

DEALLOCATE 

1395 

I 

• 

1 

15952 

DEALLOCATE 

1836 

1 

T£W6_CH47=VARIBLS(Ll ) ; 

/*NE  t.Q  J ID*  / 

1 

15952 

deallocate 

1837 

1 

C°riDR-=?6; 

/•NE'wQUAD*/ 

1 

15968 

DEALLOCATE 

1 8 j3 

1 

OOR'C!l=»EG; 

/•NtftOJAD*/ 

1 

15576 

deallocate 

1300 

1 

0PRV02O; 

/ 7N  E WOU AO* / 

1 

16937 

DE  ALLOCATE 

1310 

1 

R SLT  = STM3_ INDEX; 

/*.NcrtOU  * DP/ 

1 

15  D90 

DEALLCCAT  E 

1911 

1 

CURR_“  IC=CURR_"1IC+4; 

/*NF  nO'JiD*/ 

1 

16232 

DEALLOCATE 

1312 

1 

CALL  PUT_NEW0‘JA0; 

/•NEwCUAD*/ 

1 

16017 

OEALL0CA7 r 

l 313 

1 

E ■'!’); 

/•NEWQU 50*/ 

1 

16022 

DEALLOCATE 

1817 

1 

TEMP  = NEXT_VAR(LLI; 

/•NFWQUAD*/ 

1 

16022 

DEALLOCATE 

1315 

1 

NEXT_VAR(LL)  = LAVS; 

/•NFwSUAD*/ 

1 

16038 

DEALLOCATE 

1 316 

1 

LAVS  = LL; 

/*.'/£  WQUA  9*  / 

1 

lo057 

C E ALLOC  AT E 

1317 

1 

LL  * TEMP; 

/*.NCWQJ«D*/ 

1 

1 6062 

OE  ..  LOCAT  8 

1313 

1 

END; 

/*N  t W7UA0*/ 

) 

16270 

Of  ALLOCATE 

1319 

1 

RD  * true; 

/p.NEaOUAD*/ 

1 

1607a 

deallocate 

1320 

i 

RETURN  REG; 

/•NEU’OJAD*/ 

1 

16  J36 

oe  all  or  at  e 

1871 

1 

END; 

/•NF.’Qj  AD*  / 

i 

1 6 CO  6 

DEALLOlAIE 

1822 

1 

DEALLOC_TF.MP;  PROCEDURE  (OPERAND,  REG) ; 

/•NFWQUAD*/ 

1 

16102 

1 623 

1 

1 

16102 

OE  ALL  Cf _7  F 

l 3',7 

) 

/•OF ALLOC  TEAR  OELETF  TEMPORARY  VARIABLE 

FROM  LIST  OF  VARIABLES 

J 

161  J?. 

DEALLOCATE 

1 S?5 

i 

ASSIGNED  TO  THE  REGISTER 

• / 

1 

16102 

OE ALLOCATE 

ie?& 

i 

1 

16102 

DE  Ai  1 i3C_  C 

1 8?  7 

t 

OF  CL AREISFG, PRE_VAP»FIXED; 

/•NFWQUAD*/ 

1 

16102 

DEAlLDC_TF 

1873 

i 

DECLARE! OPERAND) CHARACTER ; 

/•NFWQUAD*/ 

1 

1M  17 

OEA>  L DC_T 5 

1329 

i 

DE4LL0CAGL (REGI  = FALSE; 

/ *NF  >,3U  AD*/ 

1 

16117 

OE  AH  UC_TC 

1930 

i 

IF  SYTFIOPFRANO.OT  = BYTEC. »l  THEN  00; 

/•NFwQUADS/ 

1 

16127 

DEALLOCATE 

1 8 3 1 

i 

LL  * POINT  t REG) ; 

/•NFwCUAO*/ 

1 

16  1 76 

OEALLOC_TF 

12 

i 

DC  II  * 1 TC  VARNOM(REG) ; 

/•NEWOUAO*/ 

1 

16162 

OEM.LOC_TE 

.n 

I 

IF  VARIBLS(LL)  = OPERAND  THEN  DO; 

/•NF.wQJAD*/ 

1 

16217 

DEAL l 0C_1 E 

1837 

i 

IF  LL  * POINT  1 R EC ) THEN 

/•NEWOUAD*/ 

1 

162  67 

DFAllDC.TF 

1835 

( 

POINT ( REG ) « NEXT_VAR( LL ) ; 

/•NCwOUAO* / 

1 

16296 

DE  At LOC_ir 

183  6 

i 

ELSE 

/•NFWQUAO*/ 

1 

16312 

DE ALLOC  TE 

1837 

i 

NFXT_VAR (PRE_VAR)  « NEXT  VAR(LL): 

/•NEWQUAO*/ 

1 

16312 

DC  ALLOC  TE 

1833 

I 

NEXT_VAR(LL)  « LAVS; 

/•NEWOUAO*/ 

1 

16377 

DFALlOC_1E 

1335 

I 

LAVS  * ll: 

/•NEaOUAD*/ 

1 

16360 

DE ALL0C_1E 

137(1 

i 

I I * VAD’IUMI  RFG ) ♦ I J 

/♦NfUOUAD*/ 

1 

16368 

nr  ai  i or  . tf 
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1 • l 

1 

i . , 

/ ,i  * ii;  . . / 

l 

i • - > 

1142 

1 

ELSE  OC: 

/♦NF..DJAD*/ 

1 

16338 

1841 

1 

PRc.VAR  « LL; 

/*ME.%0,JAD*/ 

1 

16196 

1844 

1 

1C  = NEXT.VAk(LL); 

/•NFtiNUAO*/ 

I 

164  04 

1844 

1 

ENO; 

/ *N  E nQU AD*/ 

1 

1642  0 

1846 

1 

FNO; 

/•NFkOUAO*/ 

1 

16420 

1847 

1 

IF  VARNJM(REG)  -=  1 THEN  DO; 

/•NEhCUAO*/ 

1 

16423 

1848 

1 

TEMPIRtGI  = TEMP(«EGI  - l; 

/♦NEWQJAD*/ 

1 

164  52 

1849 

1 

VARVJMIP.EC)  « VARNUHI REG1  - 1; 

/*Nr  kOUAD*/ 

1 

16490 

I860 

1 

ENO; 

/*NE  WO'J  AD*  / 

1 

16503 

1851 

1 

ELSE 

/♦NEnVlAD*/ 

1 

16503 

1852 

1 

STATUSIREG)  « FALSE; 

/♦NcRCUAD*/ 

] 

16508 

1853 

1 

ENO; 

/•NEnQUAD*/ 

1 

16526 

1854 

1 

ENO; 

/•NEWOUAO*/ 

1 

16  5?6 

1355 

1 

FlND.RESxPROCEDUREIRESULT) ; 

/♦NEKQU AD*/ 

1 

16532 

1 354 

1 

1 

16532 

1 857 

1 

/*F 1 NO. RE S SEARCH  REGISTER  TABLE  FOR  RESULT  VARIABLE 

1 

16532 

1858 

1 

1-  IF  FOUND  ANO  THE  ONLY  VARIABLE  ASSIGNED  TO 

THE  REG  < ST  ER  , 

1 

15532 

1859 

1 

THEM  RETURN  R EGA 

1 

1653? 

1840 

1 

2-  IF  FOUND  ANO  MORE  THAN  ONE  VARIABLE,  THEN 

DELETE  VARIABLE 

1 

16532 

1861 

1 

FROM  LIST  OF  VARIABLES  ASSIGNEO  TO  THE  REGISTER  AN  1 GO  TO  3. 

1 

16532 

1 34? 

1 

3-  RETURN  REG*  OF  A FREE  REGISTER  , IF  NOT  FOUND  RETU  IN  -1  */ 

1 

16532 

lr 

1 

1 

16532 

1 

1 

DECLARE (RESULT) CHARACTER; 

/♦NEWCJAO*/ 

I 

16532 

1 4.  5 

1 

OECL ARE! PR F.VAR 1 FIXED; 

/♦NFwOUAD*/ 

1 

16  544 

1 864 

» 

DO  I)  = l ro  MAXREG; 

/♦NlRQJAD*/ 

1 

16544 

1 »6? 

! 

IF  STATUS! II)  = TRUE  THEN  DO; 

/*NE  rt'jUAD*/ 

1 

16538 

1868 

1 

LL  = POINT ( II ) ; 

/♦NENOJAD*/ 

1 

16610 

134  9 

1 

DO  JJ  .=  1 TO  VARNJMI 1 I ) ; 

/*N  LHQU AU* / 

1 

16620 

1370 

1 

IF  VARIBLS(LL)  = RESULT  THEN  00; 

/*NF  W3'J  30*  / 

1 

14676 

1871 

1 

IF  VAP.NUM(II)  = l THEN  DO; 

/♦NEA3UAD*/ 

1 

16728 

1872 

1 

VARNJMI II)  = VAR MUM  III)  -1; 

/•NEft'JUAD*/ 

1 

16?52 

1373 

1 

IF  3YTE(RESULT,0I=BYTE1'«’ ) THEN 

/•nfrdjad*/ 

1 

16780 

1974 

1 

TEMPI  111  = TEMPI  II)  - l; 

/♦NFVOUAO*/ 

1 

16310 

1975 

1 

IF  LL  = POINT <111  THEN 

/fnfwdua;*/ 

1 

1683  0 

18  76 

1 

POINT  (II)  = NEXT.VARILU; 

/♦NFRQ’J  AD*/ 

1 

16362 

1877 

1 

ELSE 

/•NEbQUAO*/ 

1 

14  3 78 

1373 

1 

NE  X T.VAfi  I P.RE.V  AR  I = NEXT.VAR  ( LL  ) ; 

/•NFkDUAD*/ 

1 

16378 

1879 

1 

NEXT.VAP(LL)  = LAVS; 

/*NE«'QUAOF/ 

1 

16010 

1880 

1 

LAV'S  -=  LL*. 

/*NE wQUAD*/ 

1 

16926 

If  31 

1 

JJ  = VARMUMI II I ♦ l; 

/*’.,c..OJ'.D*/ 

1 

16934 

18  92 

1 

I I = MAXREG  ♦ 1 ; 

/•NEROUAO*/ 

J 

16054 

13  31 

1 

END; 

/•NE  sO'j/n*/ 

i 

16966 

1884 

1 

ELSE  00; 

/•NEhCUAO*/ 

i 

16466 

18  35 

1 

RO  = FALSE; 

/♦NEAO’JAO*/ 

i 

16974 

1834 

1 

RETURN  II; 

/♦'IFVtOJAO*/ 

i 

lo930 

1337 

I 

END; 

/*Nc  n'JU  AD*  / 

i 

16900 

1333 

1 

END ; 

/*NE,iOJ  *.0*/ 

i 

16900 

133  9 

1 

ELSE  DO; 

/*N  ExD'J  AO*/ 

i 

16990 

1 8‘*0 

1 

PRR.VAR  « LL; 

/♦NFV.'O'JAD*  / 

j 

16973 

[ 1391 

1 

LL  = NE  XT.VAR (LL 1 ; 

/•NEHOUA 0*/ 

i 

1 7006 

' 1,392 

| 1893 

1 

FND ; 

/•NEHOUAD*/ 

i 

17022 

1 

END; 

/•NTaQUAD*/ 

; 

17022 

I 1894 

1 

END; 

/•NEKJJAD*/ 

i 

17030 

' 1835 

1 

E NO ; 

/•NEMD'JAO*/ 

1 

17020 

1 8°6 

1 

RD  * TRUE; 

/♦NF-OUAD*/ 

1 

17038 

1/  - 

1 

00  I I * 1 TO  MAXREG; 

/•MEmOUAQ*/ 

1 

1 70^6 

1 

1 

IF  STATUS!  IN  « FALSE  THEN  DO  I 

/•NFWO  J AD*/ 

1 

17090 

1 699 

1 

RETURN  III 

/♦NERCUAO*/ 

1 

17112 

1900 

1 

FND; 

/♦NEROUAO*/ 

1 

17122 

1901 

1 

END; 

/•Nf-OJAD*/ 

1 

1 7122 

1»02 

1 

RETURN  -l; 

/•NEV.OUAO*/ 

1 

17130 

1903 

1 

END; 

/•NE  KOJ  AO*/ 

1 

17140 

1934 

1 

ALLOC.R FG.RES: PROCEDURE! RE SULT ) ; 

/•.NfcROJAD*/ 

J 

17144 

1905 

« 

1 

17146 

1904 

1 

/•A!  LOC.REG.RTS  ALLOCATE  A REGISTFR  TO  A RESUIT  VARIABLE 

•/ 

! 

17146 

Mmmwm 

Of ALLOC. T 6 Mr 
3EAL.-0C_I  E 
*>E  ALLUC.1  £ 
OE ALLOC.TEM 
De  ALLUL.l  E’1 

Of  all  jc_t  'Sv 

DE  ALL  QC.TE 
9EALLUC.1 Fm 

oeallocItf- 

GE ALLOC. IF  •(. 
OF  ALLOC. I EM 
OEALLOC.T5M 
OEALLOC.TEMI 


ALLOC.REG.R! 
Allot.  .Pro  Kf 
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Ivjf  1 
1<J08  I 

DECLARE! RESULT  1 CHARACTER; 

/•NEpQUAP*/ 

i 

1 

1 7i'.o 
17  196 

Hi  L t ' 

ALL  OC_RrO_3i 

1909  | 

DECLAREIREGIF1XEO; 

/*NfcWQUAO*/ 

1 

17153 

AL  l OC_F.EG_R  f 

1910  i 

REG  = F I ND_R  E S 1 RE  SUIT ) ; 

/♦Nr  *3J  AD*/ 

1 

17158 

ALLOC_REG_>:f 

1911  | 

IF  REG  - -1  THEN 

/♦NEWQU4D*/ 

1 

17173 

4LL0C_PFG_Rf 

1912  | 

REG  - DEALLOCATE: 

/♦NEbQUAD*/ 

1 

17202 

AL  L FU_K t 

1913  | 

IF  RD  * TRUE  THEM  00; 

/♦NEriJUAG*/ 

1 

17206 

AL  l nr_o  Eu”?  f 

1919  | 

STATUS ( REGI  = TRUE; 

/♦NEW3UA0*/ 

1 

17229 

allocIpegIr: 

1915  | 

VARNUHREGI  = l; 

/♦NEN3UAD*/ 

1 

17236 

ALL  GC_R  EG_k  C 

1916  | 

REFRCNCEIPFG)  = REFNO; 

/•NEWOUAD*/ 

1 

17252 

ALcOC_REG_3t 

1917  | 

REF  NO  « REFNO  ♦ 1; 

/♦NFWC'JAO*/ 

1 

17268 

ALLOC_REG_R< 

1918  | 

DEALLOCAflUREG)  = FALSE; 

/•NEWQUAO*/ 

1 

I 7230 

ALLOC_REG_R‘ 

1919  | 

1 F RYTE1RESULT,01=8YTE(,.*1  THEN 

/♦NEK3JAD*/ 

1 

17290 

ALL  UC_RF  G_R  f 

1920  1 

TEN? (REGI  = 1; 

/♦NEWOUAD*/ 

1 

17320 

ALLGC_RE3_C! 

1921  J 

ELSE 

r* 

/♦NEwQUA J*/ 

1 

17028 

ALL JC_REG_R! 

1922  1 

TE “? I R EG)  *0; 

/•NCriOJAO*/ 

1 

17323 

ALLGC_RE3_Rf 

1923  | 

LL. POINT!  REGI  = LAVS; 

/♦NCwG’JAfi*/ 

1 

17350 

AL  L OC_R  FG_R S 

1929  1 

LAVS  = NEXT_VAR(LAVSI; 

/*NF«QU4D*/ 

1 

17370 

ALLCC_PEG_Rf 

1925  | 

VARI3LS(LL)  - RESULT; 

/♦NEWOUAD*/ 

1 

17396 

ALL  OC_REG_R  f 

1926  | 

NEXT.VARtLL)  - 0; 

/•NEWOUAD*/ 

1 

17902 

ALl OC_REC_kt 

192  7 1 

CHAMGEILL)  -*  TRUE; 

/•NEWOUAD*/ 

1 

17916 

ALL  UC_  R EG_R  t 

1928  1 

END; 

/♦NEW3JAD*/ 

1 

17*28 

ALLOC_RFG_Rt 

1929  | 

ELSE  DO; 

/♦New QUAD*/ 

1 

1792  8 

ALLUl._REG_R! 

lr  1 

LL  * POINT (REG) ; 

/*NP  WQUAO* / 

1 

17936 

AL10L_RCG_R? 

19  I 

CHANGE! LL I « TRUE; 

/♦NEKQU AD* / 

1 

17952 

ALLOC_REG_R: 

1932  1 

END; 

/•NEWCUAO*/ 

} 

17969 

ALL()C_REG_R: 

1933  | 

RETURN  REG; 

/•NEWOUAD*/ 

1 

17969 

AL  LGC_R  EG_R • 

1939  | 

END; 

/♦NEWOUAD*/ 

1 

17979 

ALLuC_REG_R! 

1935  | 

1936  1 

1937  1 

F lND_OPs PROCEDURE  1 OPERAND) ; 

/•FIND.OP  SEARCH  REGISTER  TABIE  FOR  OPERAND  VARIA6LC 

/♦NEW3UAD*/ 

1 

1 

i 

17960 

1 7980 
17*80 

F I NO_OP 
f 1 ND_DP 

1938  | 

1-  IF  FOUND  RETURN  RFC# 

1 

17980 

F I \D_0? 

1939  | 

2-  IF  NOT  FOUND  RETURN  REG# 

OF  A FREE  REGISTER 

1 

17930 

FlN0_0? 

1990  | 

3-  IF  NO  FREE  REGISTER  IS  AVAILABLE  RETURN  -1 

♦/ 

i 

1 7980 

FIND  DP 

1991  1 

1992  | 

DECL ARE! NOT. ALLOC ATE  0 IF IXED; 

/•NEWOUAD*/ 

1 

I 

17930 

17980 

F IN.O.  JP 

F I NQ_OP 

1 79  3 1 

OECL ARE! OPERAND) CHARACTER; 

/♦NEWOUAD*/ 

1 

17992 

FI  joIq? 

19  99  1 

NOT_ ALLOCATED  -1  ; 

/•NEWOUAD*/ 

1 

17992 

fino_dp 

1995  | 

DO  11  * 1 TO  W,AXREG: 

/♦•NEWOUAD*/ 

1 

17500 

find  UP 

1996  1 

IF  ST  AT  US! 1 1 1 = TRUE  THEN  00; 

/♦NFWOUAD*/ 

J 

17599 

FI ND_GP 

1997  | 

LL  = POINT  Ml  ); 

/•NEWQJAO*/ 

1 

17566 

F 1 ND_GP 

1999  | 

00  JJ  = 1 TO  VARNUM! I I ) ; 

/•NEWOUAD*/ 

1 

17532 

F1N0_0P 

199  9 I 

IF  VAR1BLSILL)  « OPERANO  THEN 

DO; 

/♦NEWOUAD*/ 

1 

17639 

F 1 ND_0? 

1950  | 

RD  - FALSE; 

/♦NEbCJAD*/ 

1 

17689 

F l.ND_0? 

1951  | 

RETURN  II; 

/•NCwOJAD*/ 

1 

17690 

F i:;o_op 

1952  1 

END; 

/♦NCWO'J&D*/ 

1 

1 7 7 'J  0 

F 1 N0_UP 

1953  1 

ELSE 

/•newouad*/ 

1 

17700 

F 1 NO_G° 

1959  | 

LL  « NEXT_VAR ( LL ) ; 

/•NErtGUAD*/ 

1 

17700 

F ! ND_OP 

1965  1 

END; 

/•NEwOHAD*/ 

1 

17729 

F 1 NO_OP 

1956  1 

END; 

/ *NC W OU AD*/ 

1 

1 7732 

F lUD.DP 

1957  | 

ELSE 

/•NEwOUAD*/ 

t 

17  732 

f iNO_np 

1968  1 

NO T_AL LOCATED  * II; 

/•NCWOUAO*/ 

1 

1 7732 

FINO~UP 

1959  | 

END; 

/•NFWOUAD*/ 

J 

17798 

F IND_C.'P 

1960  1 

MO  * TRUE; 

/•NFWQUAD*/ 

1 

17736 

F tNO_n® 

1961  1 

RETURN  not_allucated; 

• 

, /*NEwCUAD*/ 

1 

17769 

F INDIOP 

1962  t 

END; 

/•NEWOUAD*/ 

1 

17779 

fino_op 

1963  1 
1'  1 
l>.  ! 

ALL0C_REG_OP: PROCEDURE (OPERAND) ; 

/•ALLOC.REG.OP  ALLOCATE  A REGISTER  TO 

AND  OPERAND  VARIABLE 

/•NEWOUAD*/ 

1 

1 

1 

17780 

177C0 

17780 

ALLOC_RFG_C 

ALLOC_REC_D 

1966  | 

1-  IF  ALREADY  ASSIGNED 

RETURN  REG# 

1 

17780 

ALL~C_RfG_'T 

1967  | 

2-  IF  NOT  GENERATE  A RD 

OR  RDAO  REGISTER  QUAD 

1 

1 7 780 

ALLDC_?EG_0 

1968  | 

AND  RETURN  REG# 

•/ 

1 

17730 

AL  LDC_nE'',_0 

1969  | 

1970  4 

OECL AREIREGIFIXED; 

* 

/•NEWOUAD*/ 

l 

1 

17  7bO 
17760 

ALLOC.r.r  o_o 
ALL  Df._RrG_i) 

1971  | 

OECL ARE l OPERAND) CHARACTER ; 

/•NEWOUAD* / 

1 

17792 

AllOr_RFG_0 

1972  | 

REG  « F I ND.OPI  ,3PFR  AND  I ; 

/•NFwOliAO*/ 

1 

1 779? 

41  | ..r  KIT,  !) 
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1 vu  i 

it-  J - - i 1 nr  , 

. .1  . . 1 • ) ■/ 

• 

t 

1 i v 1 2 

A*.  *. — t.  * „ ^ 

19T9  | 

RFG  = DEALLOCATE; 

. /♦'IFUOUAU*/ 

1 

17636 

ALLOC_RPC._0 

1975  I 

0EA110C4Bl!REG)  = true; 

/•NFWO'JAD*/ 

i 

173*9 

ALLOC._P.FO_C 

1976  | 

r.EFRENCFlRFGl  - REF  MO ; 

/♦NFhQJ'.D*/ 

1 

17652 

ALLCr._Rr.G_i 

1977  | 

RFFNO  = RFFNO  ♦ 1; 

/*  NL  WOU AD*  / 

1 

17  063 

ALLOC_PCG_(i 

1978  | 

IF  RD  * TRUE  THEN  DO; 

/*N  3 HQJ AO*/ 

1 

1/380 

AL10C_P.FG_0 

1979  | 

STATIJS(REG)  - TRUE; 

/♦NEWQJA 0*/ 

1 

17393 

ALLOC_PEC_ C 

1980  | 

VARNUR1RFG1  * l; 

/♦NEX&UAO*/ 

1 

17910 

ALLOC_REC_C 

1981  | 

LL.POINTIF'TG!  = LAVS.* 

, /»NFi.O  JAO*/ 

1 

17926 

AllCC_RE&_3 

1982  1 

LAVS  = NEXT_VAR(lAVSl; 

/*NE»CJAD*/ 

1 

17996 

ALI.nr._PEG_0 

1933  | 

VARI9lS(Ll)  » OPERAND; 

/*  NF  nOU AD* / 

1 

17962 

AIHjC_RF;G_C 

1989  1 

NEXT.VARtlll  * 0; 

i /*N  F W OU  AD* / 

1 

17978 

4LL0c_r.rc_a 

1985  1 

CHANGE! LL 1 * FALSE; 

; /*UFWQJA0*/ 

1 

17992 

ALLOC.RF ~._0 

1936  | 

IF  3Y7  E ( OPE  9 AND  »0  1 * BYTEC. •!  THEN 

■ /*NFV9UAD*/ 

1 

18002 

ALlOC_P.tO_-', 

1987  1 

TEHPCREGl  - 1; 

, /*NE»0.1An*/ 

1 

10032 

ALL1)C_P.F  G_G 

1983  1 

ELSE 

/•NFXOUAD*/ 

1 

18990 

ALL0C_RFG_6 

1989  | 

TE9P(REG)«0; 

. /*NE  ViJivAD*/ 

1 

18090 

ALLuC_PEG_G 

1990  J 

IF  0PEP=SU9S  1 0PEP=SU3L  THEN  DO; 

/•NEkOjAD*/ 

1 

18062 

ALLOC_PEO_:. 

1991  J 

OPPTO»=27; 

/♦NEWQUAO*/ 

1 

18129 

ALLDC_P.EG_.: 

199?  | 

temp_char*operand; 

/*NT  WOUAG*/ 

1 

18132 

ALLGC_REG_r. 

1993  | 

OPRNDl =SYHQ_I NOE  X ; 

/*NF  xOJ AO*  / 

1 

18190 

ALLDC_REG_C 

1999  | 

OP9N02=0; 

/♦NEWCJAD*/ 

1 

13152 

AlL3C_kEG_C 

1 1 

RSIT=REG; 

/♦NEX3JAD*/ 

I 

1&15S 

ALLCC.R  EG_0 

1 J 

C'JRR_NIC=CURR_N1C*2; 

/•ME  i*0  JAD*/ 

1 

18U6 

AL l Of _p  EG_C 

1997  1 

CALL  PUT_NEWQUAO; 

/•NEr.'QJ  AO*/ 

1 

181  78 

al: oc_rfg_o 

1998  1 

END; 

/♦NEaOUAD*/ 

1 

18186 

ALLUC_Rrt;_D 

1999  | 

ELSE  30; 

/ *N  E wOJ AD*/ 

1 

18136 

AL  LCC_F  F&_(. 

2000  | 

TEM?_CHAR= OPERAND; 

/*  NEXQ’J  AO*  / 

1 

18199 

ALL DC_Rf G_D 

2001  1 

IF  9YTF(09ERAN0,O)>-=  BYTFI'O'l  t 

/♦NER0J..D*/ 

1 

13202 

ALLCr._r.rG_C 

2002  J 

BYTEICPERAND.DI  <«  BYTE  ! • 9*  1 THEN 

/•>NE*;jAO*/ 

1 

18232 

ALLOC_F  CG_r 

2003  1 

OPP NO 1«-C0NVAL_ INDEX; 

. /*NFWGJA0*/ 

f 

12769 

Al  lcc_f  ro_r. 

2009  | 

ELSE 

/♦NEHOUAD*/ 

1 

16290 

Al L GC_R  t G_T 

2005  | 

OPP. NO  1 * SYH3_I  NOE  X ; 

, /*NfcWQ.tAD*/ 

1 

13290 

ALl OC_PEG_C 

2006  | 

OPRTOR=25; 

. /*NFwOUAD*/ 

1 

18310 

ALLOC_P.EG_C' 

2007  ( 

0PRND?*0; 

/*NEhQ  JAD*/ 

1 

18313 

ALlUC_RtG_C 

2009  | 

RSLT=REG; 

/*NL*ajAC*/ 

1 

18026 

ALLCr_P.EG_C 

2009  | 

CJRR_* IC«CURR_MIC*9; 

, /*\FW2JAD*/ 

1 

18632 

ALL  CC_P  1 0_C 

2010  1 

CALL  PUT_NEWQUAD; 

/*Nt UQUAD*/ 

1 

16399 

ALLOC_A  KG_i. 

2011  1 

END; 

/♦NcnSJAD*/ 

1 

13352 

AlLOC_FEG_i: 

2012  1 

END; 

/*NF  63UAD*/ 

1 

1C352 

AlLCiC_REG_- 

2013  1 

RETURN  RES; 

/•NExQUAD*/ 

1 

18352 

ALLilC_RFG_r. 

2019  | 

END;  ; 

/♦NEWQUAD*/ 

1 

1 6 36  2 

ALL  OC_REG_G 

2015  | 

WRI TE_REGS:PROCEDURE; 

/•NEHQUAl-*/ 

1 

13368 

2016  1 

1 

1816  8 

WR ! T E_P  FGS 

2017  | 

/♦WRITE  REGS  GENERATE  WT  REGISTER  QUADS  FOR  VARIABLES  ASSIGNED 

1 

1 8168 

WRI TE_REUS 

2015  1 

TO  REGISTERS  •/ 

1 

1336  8 

H«l  TE_°.FGS 

2019  1 

! 

1 83o8 

WRIT  C_XFGS 

2920  | 

DO  J I«  ! TO  NAXREG; 

/•MFHQ'JAP*  / 

1 

1 8 3b  8 

UK  I T E_RFG  S 

2021  1 

IF  STATUS!  Ml  = TRUE  THEN  00; 

/ INFXOJAD*/ 

1 

19x29 

XRITE_RFGS 

2022  | 

LL  « POINT 1 1 1 ) ; 

/•Nth QUAD*/ 

1 

18996 

WRIT  E_REG3 

2023  1 

DO  JJ  « 1 TO  V ARN'J.H ( 1 1 1 ; 

/•NFKOUAO*/ 

1 

1F962 

XRJ  TE_P.FGS 

2029  | 

IF  CHANGE ( t L 1 = TRUE  THEN  DO; 

t *NE  X3 J AO  «/ 

1 

IP  619 

XF I T C _R  F G S 

2025  | 

CHANGE! LL  1 - FALSE; 

/*NF'.!QU#0*/ 

1 

13  536 

WRIT f._P  EGS 

2026  | 

TEMP_CHAR«VAP!3LS1LL); 

/♦NExOUAD* / 

1 

18596 

WRIT  f _RCGS 

2077  ) 

RSLT-SYN3_1N0EX; 

/•NEwQUA"1*/ 

1 

18562 

KR  ITF_PECS 

2023  1 

0PRT0R*26 ; 

/•NFWOJAD*/ 

1 

1857* 

.TR  1 T F_P.  EOS 

7 1 

OPRNDl*! I; 

* *NE  UQJAD*/ 

1 

13692 

WRT  TE_r.EOS 

A 1 

OPRN92-0; 

/«  NTtOJAD*/ 

1 

13590 

XP. ! 1 F_P.  FG  3 

2031  | 

CUPR_'11C*CurR_MlC*9; 

/•NEWC'IAD*/ 

1 

l 85-y6 

XRITt.RrGS 

2032  1 

CALL  PUT.NEWOUAD; 

/•NI-i.QJAD*/ 

I 

18608 

XR!TC_! FGi 

2033  1 

ENO; 

/ *NFaQUAO*/ 

1 

18616 

xR  I TE_REGS 

2039  1 

LL*NEXT_VARIIL1 { 

/ INEx  J'J  AD*/ 

1 

18616 

WR  1 T c_R  F GS 

2035  | 

ENO; 

/INEXQUAD*/ 

1 

18632 

Xkl  TE~P.EGS 

2036  | 

ENO; 

/*  NEX0J40*/ 

1 

18690 

UR  I TE_RtOS 

2037  | 

END; 

/♦NEWQJAO*/ 

1 

18690 

WRITE  REGS 

2038  | 

END; 

/♦NTHQIUD*/ 

1 

1 8698 

hr  nr  !<rr.r. 
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■ 


ft 


203a 

1 

NEwOUAD_GEN ! PROCEDURE  1 

/♦NE  WQ'jAJ*/ 

1 

1405-t 

2040 

1 

I 

1PC54 

newooa:i_cf 

2041 

t 

/•NEWQUAD.CFN  REG I STEP  06(40  GENERATOR  • / 

1 

13654 

NE*C  J.'.0_Gf 

2042 

1 

1 

14654 

NE  Vt2  J '0_CE 

2043 

1 

DECLARE  (RSGltRF G2.REG3 , PRE.VAR 1 F I XE D: 

/•NF'.:a:iAD*/ 

1 

1345  4 

NEWjuAo'GF 

2044 

1 

DECLARE  CAS E_NUM{ 30 1 FIXED  INITIAL 

<0, 

/•NEti'jUAD*/ 

1 

13566 

NEhOJ  V.)_GE 

2045 

t 

l. 

/•NEwC  ) AG* / 

1 

1 C666 

NEOJAO.Cl 

2046 

1 

l. 

/♦NEJJ'JAJ*/ 

1 

1 

1 8666 

NE  »0  jAO_  -f 

2047 

1 

l. 

/•NFkOUAD*/ 

I 

1666o 

newoj7.:j_g: 

2046 

1 

0, 

/•ME.V3JA0*/ 

1 

l 366  0 

NEwC JA J_GE 

2046 

1 

0, 

/•NEW3JA0*/ 

1 

1 Bofc 

NEW.’lA-o_GF 

2050 

1 

3. 

/*•)  FwOJAO*/ 

1 

18666 

NE  wC'JA.‘l_Gr 

205! 

1 

6, 

/*Nc  4 JU  4 0*/ 

1 

1 866  6 

NEwO'JAD.GE 

2052 

1 

2. 

/•NE-OJ  VO*/ 

1 

13666 

ne  <*;  jad_ge 

2053 

1 

2. 

/♦NFwCJAO*/ 

1 

ie  666 

NEwOJAD.GF 

2054 

1 

0, 

/•Nf  r.OJAD*/ 

1 

1 9666 

NEWQJAO_GE 

2055 

1 

It 

/♦NFwOJAO*/ 

1 

13666 

NEt»;.no_GF 

2055 

1 

It 

. /*newouap*/ 

1 

18666 

NEW  0'(4  7_Gfc 

2057 

1 

It 

/*NE  .-.OJAO*  / 

1 

1 36o6 

NcWQUA  7_G  G 

2059 

1 

Ot 

, /».Nt  . 71!  AO*/ 

1 

19666 

NE  *‘0  J A 0 _ G £ 

2050 

1 

0, 

/*\’E*  IAO*/ 

1 

18666 

Ntw oUAO_Gr 

2050 

1 

Ot 

' /«  JtU*/ 

1 

1 8666 

NEW  ;-oao_g  £ 

2061 

1 

0, 

/*  0*/ 

1 

l 8666 

NEKOOAO.GE 

2062 

1 

5, 

/*N  . ‘ 

1 

18466 

NEwOJAO_GE 

2063 

1 

0. 

/*NE  J 14"'*/ 

1 

1 3656 

NEWG  JAO_OE 

4 

1 

0, 

/*N'  i"-/ 

l 

l 8666 

NFK0'»A0_GE 

3 

1 

0, 

/♦NEriL = */ 

1 

18666 

NEwiJ  * 0_GE 

2J65 

1 

0, 

/♦.NEwOjAD*/ 

1 

18c66 

nE!V5L'AO_5F 

206  7 

1 

Ot 

/•NfwO'JAO*/ 

] 

l «6K> 

NEW VJA J_G" 

2066 

1 

4, 

/*NEw; J AD*/ 

1 

1 5 '■  6 6 

NEW  JJAD.GE 

2069 

! 

Ot 

/♦NEwOJAD*/ 

1 

1 0666 

NEWC  JAD_&: 

2070 

1 

0, 

/•NEwQJAO*/ 

! 

19666 

NEttO  JAO_G- 

2071 

1 

0, 

/*N  EwOUAO*/ 

1 

18666 

NEWQJAD_GE 

207? 

1 

0, 

/•NEW 00 AO*/ 

1 

13666 

NE  ttCJi  D_DF 

2073 

1 

0, 

/•NrWJUA.W 

1 

1 Siio 

Nc».OJAO_G= 

2074 

! 

5»; 

/•NEWUJAD*/ 

i 

1 9446 

N = W.''-A0_r,r 

2075 

1 

DO  CASE  CASE_NUM 1 OPER ) ! 

/•Nf WOO AO*/ 

i 

1 8606 

NEW  O-J  AO_-GE 

2076 

1 

DO; 

/•NEwOUAD*/ 

1 

18698 

N£<t  OJA  0_GE 

2077 

1 

1 

1 3699 

NFW0JAD_3C 

2079 

1 

/•PROCESS  AS TCo  QUAD  • / 

j 

1864  8 

NtWOOAO.GF 

20  79 

i 

1 

19699 

NtWQJAO.GE 

2040 

l 

REG ! =41 LnC_PC  G_0S I OPER  AND  1 ) ; 

/•NFwOUAD*/ 

i 

18698 

N9W0JA0_Gr 

2 061 

! 

REG2  = F 1 N!7_R  ESI  R ESUL  T ) ; 

/•NEttgUAD*/ 

1 

1 8 T l 8 

nc»;jao_ge 

20= n 

1 

IF  AODPSSI RES2 >=TRUE  THEN  DC; 

/♦•'Yv.OJAO*/ 

1 

13739 

NEW  JO  V.SE 

2043 

1 

nr»uTr19«0; 

/*NE»3JA0»’/ 

1 

13760 

Nc  V J JAO_  .F 

2094 

i 

0P3N01 =REG1 ; 

/*(  f w'OU&O*  / 

1 

18  766 

NtWOJAO.G-: 

2095 

1 

OPr  7; 

/*•  Ewono*/ 

1 

13774 

NEt.'Q  JA'0_GC 

2C36 

1 

R SL  T=  PEG2; 

/•I  Ew.JAO*/ 

1 

18733 

NEWS JA0_G9 

2037 

1 

CALL  P jr.NEWO’JAO; 

/ <:;PkOJAO*/ 

1 

137te 

New  0-'  4 0_GE 

20’  5 

1 

C'JP  1 C*CU° R_M  I C*2  » 

/*" N £ <OAJ*  / 

1 

1 9 796 

NEwO-.'i3_G?. 

203'' 

1 

A0DRSSIREG2J-FALSC; 

/ *N ; -00  AD*/ 

1 

leooe 

NS»wi>A-9_wE 

2090 

1 

OE  7.  l LOC  A6L  IREG2I-FALSE; 

/*NE«0JA3*/ 

1 

leas 

NE«JJAO_DE 

2C91 

1 

FNO; 

/tNtwOJAO*/ 

1 

19023 

NEW  :JA  ;_0: 

2097 

1 

ELSE  oo; 

/ •NrwJJAO*/ 

1 

18625 

NE  wO’JAO_Gc 

2093 

1 

VARNUMIRTGl  >«VARN<JM(RE61|AlS 

/•VFrfO.'AD*/ 

■ 

13930 

NFw'joA.j_r.r 

2 054 

) 

REFRf MCE  1 REG1  1*  R EF  NO ; 

/•NF  Wg'JAO* / 

! 

1 3 864 

new;uao_ge 

2045 

1 

REF.N7»P.rFN0«  1; 

/•NFwOJAD-/ 

1 

18350 

NE.’.;jAO_G? 

2096 

1 

IF  eYTHRESKLT,01«0yTEI  ».•!  THEN 

/•NEW3JAD*/ 

1 

m=>2 

N 4 w *J'J  A 7_GE 

2097 

1 

TEMPI PFG1 t=TE«P(REGl)4l; 

/*NE'.OJAD*/ 

1 

10922 

NEwO'jAJ_r,c 

'98 

1 

LL=L5VS; 

» *NFt>3JAD*/ 

1 

1 9942 

NEw jJAO.G- 

1 

LAVS«NE  XI_VARILAVS1  ; 

/ «NEWCUAO»/ 

1 

189  50 

.*•  twjij  AO_GE 

•flOO 

1 

NEXT_VAR(LL)=P0INTIREG1 »; 

/ *NE  NO JAO*  / 

1 

1 3 966 

NEWC'JAO.G' 

2101 

1 

POI NT IREG1 1 « L L ; ■ 

/ 'NEkO'J AO* / 

1 

18960 

new; jao_ge 

2102 

1 

VA9J31SIU  )»RE  SULT  ; 

/-••NcWCJAO*/ 

1 

19006 

Nfcw JJA J_GE 

2103 

1 

changfill >«true; 

/-’NEWOUAD* / 

1 

14022 

newoja  n_r.e 

2104 

1 

F “I' ; 

/wrjrwOoA  )♦/ 

1 

19634 

N'f  W7  (AD.  or 

l 


r 

V * 
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C l - J 

1 

‘Jl  -ii  L J>.  1 .il  1 (.  _ i 1 - r U 5.  1 

/ * j ik  * • / 

» 

1 

2106 

1 

CALL  0EALL0C  TEMPtOPERANOl ,REG1>; 

/ 'N f h JU  AD* / 

1 

19044 

NE  WS J4Q  GE 

2107 

1 

IF  RD*FALSE  THEN  00; 

/ ■NEwQuin*/ 

1 

19068 

NE  »D JAO_GE  • 

2103 

1 

LL=PQINT (REG?) ; 

/ '.VEWCUAD*/ 

1 

19036 

NEWQ.IAO  G- 

! 2107 

1 

nex7_var<lli«lavs; 

/ * NE  WQUAD* / 

! 

19102 

NEWQJAD 

1 2110 

1 

L A VS*LL ; 

/••newqhad*/ 

1 

19118 

NFKQJaU_Gc 

2111 

1 

STATUSIREG21-FALSE; 

/♦NEWQJAD*/ 

1 

19126 

NEW  QJAO_GR 

2112 

1 

END; 

/•NEWQU4D*/ 

1 

19116 

NcWQUAP_GE 

i 2113 

1 

END; 

/*NE  wGUAO*/ 

1 

19136 

N E * C J ^ G l 

2114 

1 

00; 

/•NFWUJAD*/ 

1 

19136 

7JE«'J  JAD_G: 

2115 

1 

1 

19144 

•'IF  * wJ 

2116 

1 

/•  PROCESS  ADO,  SUP , MUl , LT,  GT,  EO  QUADS  */ 

1 

19144 

NC*Q<JAi)_GE 

2117 

1 

1 

19144 

NE  W QJ  A 7_GC 

2113 

1 

RFG1 = ALL OC_REG_OPI OPE RAND 1 1 ; 

/•flF-WaUAD*/ 

i 

191,4 

NEw  OJ AO_GE 

2119 

1 

REG?* ALLOC _REG_OPI OPERA NO 2); 

/•NEWQUAO*/ 

1 

19164 

flFKQJ*  .0_CF 

2120 

1 

REG3*ALLPC_REG_RESIRESULT» ; 

/•Nf aJJAO*/ 

1 

19:84 

NE  wQJA  7_G  E 

2121 

1 

OPR\Ol=KEGl: 

/•iJEf.Q'JAO*/ 

1 

19  ’04 

NEWQJ AD_GE 

2122 

1 

0?RN02=°EG2; 

/•NF.UQJAD*/ 

1 

192:2 

NE  ".'QUAO_GE 

2123 

1 

RSLT=REG3; 

/•NEW-DUA!)*/ 

1 

19220 

NE  wQJ AD_GF 

2123 

1 

OPPTOR=OPER ; 

/•Nf WQUAD*/ 

1 

19;  2 6 

NEwQJAO.GE 

2125 

1 

CALL  PU7_NEW0UA0; 

/•NEwQU&O*/ 

1 

192  36 

NEwOJAO_iE 

2126 

1 

call  dfalloc_tempioperanoi,regii  ; 

/•NEwQJAD*/ 

1 

19244 

NE  wQUAO_GE 

2127 

1 

CALL  0eALLCC_TENP10PERAN02,REG2) ; 

/*NE  WC’JAD*  / 

1 

19263 

NEw  j > AO_Gt 

2128 

1 

IF  0PEK*NUL  THEN  00; 

/•NF WQUAD*/ 

1 

1929? 

NehO JA3_Gr 

2129 

1 

IF  CJPP.HIC  MOO  2 = 1 THEN 

/*NEwQUAD*/ 

1 

1-7308 

NEW0JA3_GC 

2130 

1 

CUR3_M I C*CURR_N ]C ♦ 1 2 ; 

/♦NEwQJAD*/ 

1 

19  342 

c *a  C J A')_G  r 

2131 

1 

ELSE 

/*NE WQUAO*/ 

1 

19  346 

NbWCJA 0_Gr 

213? 

1 

CURR_MI C*CURR_MIC»1 3 ; 

/•NEwQUAO*/ 

1 

19346 

new;  j4d_,ge 

2133 

1 

eno; 

/• NEwQJAD*/ 

1 

19366 

n r.  cj  a r«_G  ^ 

2 •• 

\ 

ELSE 

/*Nf  WQJAD* / 

1 

19360 

NEWC  ) A 0_G f 

. 

1 

Cl)RR_MI  C*CURR_H  IC»3 ; 

/•NEwQJAD*/ 

1 

19366 

NEnOJ40_GE 

2136 

1 

END; 

1 

19386 

7«*«  Jn  \J  C 

2137 

1 

do; 

,*NEwQJAO*/ 

1 

19386 

S£  WO  G c 

2138 

1 

1 

19394 

N:w;j'.r'_Gr 

2139 

1 

/•PROCESS  ET,  BE  DU  AOS  */ 

1 

19394 

NE,.Q‘;AO_C.r 

2140 

» 

1 

19394 

NEWJ JAC_3: 

2141 

1 

REGl  = ALLOC  _REG_OP ( OPE R AND 1 1 ; 

/♦NEWQJAD*/ 

1 

19394 

KEkQuAO_Gc  1 

2142 

1 

CALL  DCAILOC  TE'APIOPERANOi.REGU  ; 

« * \'E  WQJ  AD*  / 

1 

19,14 

NEwQJ AD_OE 

2143 

1 

CALL  WRITE _REGS; 

/•NrWQJAD*/ 

1 

I °43  3 

ne  v\  w j a g e 

2144 

1 

OPRND l=REG 1 ; 

/’'NFwQ'IAO*/ 

1 

19446 

NEwQJA3_j: 

2145 

1 

TEM’_CHAR*RES'JLT; 

/•NEwQJAD*/ 

1 

194  54 

N£*a  Q j a n_  r.  F 

2146 

1 

RSLT*t  AB_INOEX; 

/*N  EwQJ AD* / 

1 

19462 

NS b C JAG_GE 

2147 

1 

OPPN02=D; 

/•NEWQJAD*/ 

1 

194  74 

NEW;JAC_G" 

2143 

1 

OPRTOR=OPER; 

/♦NEWQUAD*/ 

1 

19430 

NEw QuAD_GL 

2149 

1 

PRE.VAR*  CURR_WIC  HOO  2; 

/•NEWQJAD*/ 

t 

19439 

NtwQi'AO_GE 

2150 

1 

IF  PRE_VAP.=  0 THEN 

/*'  EwQJAQ*/ 

1 

19  506 

NEwQJAO— Gr  j 

2151 

1 

CURR  MIC=CURR  HIC*4; 

/•NE  WQJAD*/ 

1 

1953  J 

NEnQUAO_Gr 

2152 

1 

ELSE 

/*.M C *wu  AO*/ 

1 

145  34 

NC  W OJA.^—G£ 

2153 

1 

CjRR_HIC«CURR_HIC+5; 

/♦NE'.i  jJAO*/ 

1 

19  o3  4 

NcwwJAD_-iS 

2154 

1 

CALL  PUT_NEWQUAO; 

/•NSWQJAC*/ 

1 

19864 

NEWQJAD_GE 

2155 

1 

END; 

/♦NEWQJAD*/ 

1 

145c? 

WEw JJAQ_Gc 

2156 

1 

00; 

/•NENyUAD*/ 

1 

19562 

NEWOO-'O.G11 

2157 

1 

1 

14573 

NEwQ'JAC_GE 

2153 

1 

/•PROCESS  HALT  QUADS  •/ 

1 

19570 

NEwQUAO.GE 

2159 

1 

. 

1 

19570 

NFb  0 JAO_G? 

2163 

1 

OPRNOt-O; 

/•MEwOUAD*/ 

J 

145  70 

NF«  J J '<  J_GE 

J 

2161 

1 

OPRND2*0; 

/• NE  WQJAD* / 

1 

19576 

NEw-DJA  )_CE 

'I 

2162 

1 

RSLT«0; 

/•NEwQJAD*/ 

1 

19582 

NEwQJAD.GE 

2163 

1 

oprtgr=oper; 

/•NEw QUAD*/ 

1 

19  53  6 

NJwOjAD.GE 

i 

2164 

1 

CALL  PUT.NEWQUAD; 

/•NTM-QUAD-*/ 

1 

19596 

NEW0J40_GE 

\ 

! 2165 

1 

END; 

/•NEWQJAD*/ 

1 

19604 

NE  Wi JmD— GF 

2165 

) 

DO; 

/•NEwQJ  AD*/ 

1 

19604 

NEh  00 AD_GE 

2167 

1 

1 

19612 

NcwOJAO.GE 

* 8 

1 

/•PROCESS  LAB  QUAOS  •/ 

1 

19612 

Nc  W 0 JA J_GE 

} 

1 

1 

19612 

NEwQ JAJ_GE 

\ 

1 

J 

k J 

2l  70 

1 

•* — 

CALL  HRITE.RFGS; 

/•NFWQIIAD*/ 

1 

1-7612 

■mmwmi 

NFWQjAil.r,!- 
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mi  | 

1 l 1 1 ‘ = ‘ j‘J l |‘  A jl  ; 

/ . 1 J ! 

1 

1 -jcJ 

r.  II  j jl,  . 

2172  ] 

0®RNDl=i  A3_I NOE  X ; 

7*NEU'j.JA9*/ 

1 

196’e 

NEWQJAO.G' 

2173  1 

OPRND2=9; 

/*NE*2U40*/ 

1 

196*0 

NE  w 3J4  0_3r 

2174  1 

RSIT=0; 

/•NErOUAO*/ 

1 

19646 

71 EW  0J49_uE 

2175  1 

0PRT0R=OPER ; 

/•N  F WOU AD*/ 

1 

19552 

• J.'W  J J 4 0_ ; 

2176  1 

MIC_L0C10PRN01)»CURR_NIC; 

/♦NEWOJAO*/ 

1 

19660 

NEW9UAD_0fc 

2177  | 

cuRR_Nic=ruRR_Mir*2; 

/•NEivQJAD*/ 

1 

19676 

NF  W3'JAD_GF 

2173  | 

CALI  PUT_NE  W0U AD ; 

/*  NENOU  AO*  2 

1 

19638 

NEW9  IA9_Gf 

2179  | 

DO  ii=i  tc  maxreg; 

/*NE*OUAD*/ 

1 

19696 

NF*0J*.9_Gr 

2190  1 

IF  STATUS! III=TPU£  THEN  00; 

/♦NEW9UA  )*/ 

1 

19  7*fO 

NEwG  IAJ_G': 

2181  | 

STATUS! 11 )=FALSE; 

/♦NEaQJAO*/ 

1 

19762 

Uc« JJAJ_GC 

2182  | 

IL=PD1NT<  II ) ; 

/~NEt«0  JAD*/ 

1 

19772 

NEW'2'JA9_G? 

2133  i 

DO  JJ*1  TO  VARNUNlII » ; 

/*N  E wOUAD* / 

1 

19788 

newquad_ge 

2134  | 

PRF_VAR=NEXT_VAR1LL>; 

/*N  En'QJAD*/ 

1 

19940 

NE  r3JAD_Gl 

2185  1 

NEXT,VAR<lll=LAVS  ; 

/*NF  uQUAO*/ 

1 

19856 

NEWQU'.O.GC 

2186  | 

lavs*ll; 

/*NEl.Q;IA9*  1 

1 

19872 

riE«3JAD_Gr 

2187  | 

ll«=pre_mar; 

/•NFWOJAO*/ 

1 

19830 

NEW  2 J40_5: 

2198  1 

END; 

/*NE/iG  JAU*/ 

i 

19333 

NE  * 0 JA9_5E 

2199  1 

END; 

/*NEWQUAO*/ 

! 

19  996 

NE  w 9J  4 J_Sr 

2190  | 

END; 

/♦NEWOUAD*/ 

1 

19396 

NE » J J40_Gf 

2191  1 

END; 

/♦NE.10UAD*/ 

1 

19004 

NEW3JAD_Gf 

2192  | 

DO; 

/* NEWOUAD*/ 

1 

19904 

NEWg;lAO_  GE 

2193  1 

1 

19912 

NEwGJAD_G£ 

2194  1 /*PR0CESS  SUSS, SUM  QUADS  */ 

1 

19*12 

NEWOJAD_G- 

2195  | 

1 

19012 

NEwQJAD_Gr 

2196  | 

KES1=.M  L0C_REG_0P( 0 PER AND 1 1 ; 

/•ME*  IJAO*/ 

1 

1'>912 

NE  r C .1 4 D_G ' 

2197  1 

SU3SFlAG=0?ER  ; 

/*NE«ajAO*/ 

1 

19932 

NFr3J40_G- 

2199  1 

5)PFR=0 ; 

/•NFWQU  40* / 

1 

15940 

NE«U'J4  9_G; 

2109  | 

RE  G2=  All OC_RE  G_OP<  0PERAND2 1 ; 

/•NEi.yJA.9*/ 

1 

19946 

Nf  !■'  0 j A 9_G£ 

’■•00  1 

REG3  = ALL0C_REG_P.ESIP.ESULT>  ; 

/A'JERG'JAO*/ 

1 

19956 

NEW3JAD_G‘ 

1 | 

C'PRMDl  —p  EG2 ; 

/MEKQllAO*/ 

1 

19936 

NEWQJA9_G£ 

--0?  | 

OPkN9?=0; 

/*MEl»QU  40*  / 

1 

19994 

NE  *3  J AO_G‘" 

22  03  | 

RSLT=*r33; 

/♦NEl.'QU  AO*/ 

1 

20000 

NErCJA  )_;* 

2209  1 

0’RTDR=?9; 

/♦.NC..3JAD’/ 

1 

20J9e 

NEW0'JA9_3£ 

2205  | 

CALI  PUT_NEHQUAD; 

/•NE.IOHO*/ 

1 

20^16 

NF  J J AO_G  • 

22  04  | 

0?RTG2.  = 1 ; 

/•NtViOUAD*/ 

1 

20  02  4 

NEW  jJVO,.*' 

2207  | 

0°RN01 =R  EG  1 ; 

/*NE  rQUAD*/ 

1 

20932 

NE  W .9UA9_Gi 

22  03  1 

0PPN92=REG3; 

/"NFwJUAD*/ 

1 

20040 

NEi(9JA0_G‘ 

2 209  \ 

R SL  T=f’.  EG  3 ; 

/•NErOJAO*/ 

1 

299*3 

NE«  0 JA  )_.V 

2210  1 

CALL  PIJT_NEWQUAO; 

/♦NcOJkO*/ 

1 

200  5o 

ne.'3jad_g: 

2211  1 

IF  SU9SFL4G=SU3S  THEN  DO; 

/*Nc  UO'JA  ■■»«■/ 

1 

« 

20064 

NEr  0 Ji"i  J_G! 

2212  1 

riPRTOP=28; 

/♦nfuqu-j*/ 

1 

20039 

NFl  1 Ja9_  ;* 

2213  | 

OPR  NOl*  REG3 ; 

/♦NlW'GUA"*-/ 

1 

20038 

NF.OJAn_G' 

221*  1 

OPRN02=0; 

/ *N  EwOU  AD*  / 

1 

20096 

NE  ,.  9J40_C  : 

2215  1 

PSLT  = RCG3; 

/♦NFWgiJAD*/ 

1 

20102 

NEiv'lUA  >_V 

2216  1 

CALI  Pj  T_N  EWQUA  0 ; 

T*NEa9JAD*/ 

1 

20110 

newojao_  ;: 

2217  1 

C'JFP_N1C=CUKR  MIC  + 7; 

/•NCVOUAD*/ 

1 

20119 

nek oja  >_r,- 

2213  | 

END; 

/♦•NENLUAD*/ 

1 

20130 

NE  60  JAO_i, ! 

2219  | 

ELSE  DO; 

/♦NE..3UAD*/ 

1 

20130 

I.Em9JA0_G‘ 

2 ’20  1 

Clio R_MI C=CURR_“IC*5; 

/•NtWtfUAO*/ 

t 

20 1 ’ 9 

N E ii  3 J A J_  y ■ 

2221  1 

ADDRSSIREG3)*TRUE; 

/•NFWOLIAO*/ 

1 

20150 

NEr>9J40_G; 

2222  1 

DE ALLOC  ABU REG31  = T RUE; 

/•NEhOUAD*/ 

1 

201  62 

NE-O  )AO_G' 

2223  1 

ENO; 

/♦NFWOJAD*/ 

1 

20174 

NE  K3JA J_C 

2224  | 

CALL  DEALLOC_TEMP( OPER AND2 , REG2 ) ; 

/♦NFWOJAO*/ 

1 

201  7* 

■NF«OJAO_GT 

2225  | 

DE ALLOCASL (RFG 11= FALSE; 

/•NEwOJAO*/ 

1 

29199 

Nc R3JA0_G 

2226  | 

END; 

/•N’FwGuAU*/ 

1 

20208 

NE..  C-J  A 2_ G ! 

2227  | 

DC; 

/•NE6QUA0*/ 

1 

20208 

NEr  JJAO_G: 

2228  1 

1 

20216 

NEiV0J4i0_G: 

2229  | /^PROCESS  BR  QUADS  */ 

1 

20216 

ME  H Oo  A 9_G 

2230  1 

1 

20216 

Nt  r'3,.iA9_G! 

2231  1 

CALL  WR1TE.REGS; 

/♦NEW QUAD*/ 

1 

20216 

NFtvGJAD.G 

2232  1 

OPRND1=0; 

/♦NEJKQUAO*/ 

1 

20224 

newojad_g 

2233  1 

OPP.ND2  = 0; 

/♦NEW3JAD*/ 

1 

20230 

NE  V<QUA9_G! 

’234  | 

TE  NP_CH  AR  »R  E SUIT { 

/♦newquad*/ 

1 

20236 

NErOUAO.G. 

35  | 

rslt=l»b_inoex; 

/♦NEwQUAO*/ 

1 

20244 

NEk3J40_G 

.<36  | 

0PRTnR*0PFR ; 

/•NFtnIUAO*  / 

1 

20256 

NTriMAiO  61 
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t:  .1  \ 

L iLL  PUt_  <**J JAi 

/ *’  . L • . J.J'/ 

1 

c .1..  It 

, . > 

2233  1 

END; 

/•NFKQUAD*/ 

J 

20272 

N£  „OJA  D_GtfV 

2?39  1 

ENOS 

/•NEKOUAD*/ 

1 

2C272 

NEUOUAD.C.FN 

22*0  1 

ENO; 

/TNtwQIJA  n*/ 

1 

20280 

NEKOUAD_f.CN 

22*1  1 

PROCFSS.QUAOS: PROCEDURE; 

/♦NFhQUAO*/ 

1 

20236 

22*2  1 

1 

20/b6 

PR~:rS5_GuA_ 

22*3  I 

/•PROCE SS_0UA0S  PROCESS  GENERATED  QUADS  AND  GENERATE  REGISTER 

QJ ADS  •/ 

1 

202P5 

PRUC  E S S_QU-V 

22**  1 

1 

20286 

PKUCLSS_Qo*r 

22*5  1 

DECLARE  MM  FIXED; 

/•NEWOUAO*/ 

! 

20?  16 

BRDCfSS_QUA'. 

22*5  I 

OUTPUT11I  * *1  QUADS  GENERATED'; 

/•NEKQJ  AD*/ 

1 

20293 

PROCFSS.OUA!. 

22*7  1 

DOU9LS_ SPACE; 

/•NFWQUAO*/ 

1 

20  J?  2 

prd:css_oua- 

22*8  1 

OUTPUT* • OPERATOR  OPERAND1/  OPERAND2  RESULT/ • II 

/•NEWQJAO*/ 

1 

203*6 

PRDCE  SS_OUAl. 

22*9  | 

• RCD_N»  LOC_QUAD'; 

/♦NEwQUAD*/ 

1 

203*6 

PROcCSS_QU*:. 

2250  1 

OUTPUT*'  CONDITION  LABEL'S 

/*  NE  *QU  AD*/ 

1 

2035* 

process.oja: 

2251  1 

DO  IN  * 1 TC  NEXTQUAD-l; 

/•NEW2UA0*/ 

1 

20*0* 

PRDCFSS_CUAO 

225?  1 

CALL  REAOQUAD(MM); 

/•NFWOJAD*/ 

1 

20*52 

PRGCE  SS_QUA1. 

2253  | 

CALL  NEWQUAO.GEN; 

/•NEWCJAD*/ 

1 

20*66 

PROCESS. qua: 

225*  | 

END; 

/•nehquad*/ 

1 

20*76 

prgcfss.ouad 

2255  | 

CALL  MR!TE_REGS; 

/♦NEwOUAO*/ 

1 

20*3* 

PROCESS.OUAO 

2256  | 

END; 

/•NE»OUAD*/ 

1 

20*92 

PROCESS.QUAL 

2257  1 

/*  DEBUG  PRINT  OF  SYMBOL  TABLE  •/ 

1 

20*98 

2253  1 

1 

20*913 

2259  | 

PRINT Symb: 

1 

20*93 

2260  | 

PROCEDURE; 

1 

20*93 

22'  1 

CUTPUT(l)='l SYMBOL  TABLE'S 

1 

20*98 

PRINTSYMB 

22 

D0UBlE_space; 

1 

2033* 

PRINTSYMb 

2Zfj>  | 

OUT  BUT  = • I NOEX  SYMBOL  LOCATION  DEFINED  SIZE 

INITIAL' ; 

1 

20553 

PKl NTSYM; 

226*  | 

DC  1=1  TO  NSYM30L; 

1 

20573 

PS  1 N T S Y M 3 

2265  I 

BUFFFR*PABI • *111.91; 

1 

20622 

PR  I NTSY-'b 

2266  | 

6UFFFR  = PADI BUFFE°I 1 SYN3 1 J 1.19) ; 

1 

20670 

PRINTSYMB 

2267  | 

BUFFER* PAD! BUFFER | I LOC AT  III, 291 ; 

1 

20713 

PR  1 NTSYM3 

2263  1 

Buff  fr= pad; duffer i idefiii ,36> ; 

1 

2077* 

P R I f 1 T S Y 0 

2269  | 

BUFFFP=  pad; BUFFER  1 IS 1ZFI  I *,*3  »; 

1 

20330 

PP 1 NT  SY*d 

2270  | 

8UFFCR*PAO( BUFFERI I INITII  >,80) ; 

1 

20336 

PRINTSYMB 

2271  | 

CUT»JT=OUFFER; 

1 

205*2 

PklfilSYMB 

2272  | 

Eno; 

1 

20°e  2 

PRINTSYMb 

2273  | 

OUTPUT; !)  = • 1C ON ST  ANT  TABLE'; 

1 

20970 

PRINTSYMB 

2 2 7*  | 

DCUPL  F_SP  ACE ; 

1 

2099* 

PRINTSYMo 

2275  1 

OUTPUT* • INDEX  VALUE'S 

1 

21018 

?R l NTS Y Mb 

227*  | 

DC  1*1  TO  NCONSTANT; 

1 

2100S 

PR  1 NI SYMR 

22  77  | 

BUFFER  = PAD( • 'll  1,9); 

1 

21082 

PRINTSYMB 

2278  1 

BUFTFR-PADt  BUFFERI  ICONVAH  11,80)  ; 

1 

21130 

PKl NTSYMB 

2 279  ] 

OUT  PUT* BUFFER; 

1 

21136 

PRINTSYMB 

2230  1 

END; 

I 

21206 

PRINTSYMB 

2231  | 

OUT  ?JT;1)*'1LABEL  TABLE'; 

1 

2121* 

PR  1 NTS  YMB 

2232  1 

DOUCLE_SPACE; 

1 

2123d 

PRINTSYMB 

2283  | 

OUTPUT* • I NDEX  LABEL  ADDRESS  OEFINED'S 

1 

21262 

PRINISYM3 

223*  | 

00  1*1  TO  NLABELS 

1 

71282 

PRINTSYMB 

2235  | 

8UFFER=PADI*  *111,9); 

1 

21325 

PRINTSYMB 

2236  | 

BUFFER* pad; DUFFER  1 ILABIDI  I),  16) ; 

1 

2137* 

PR  1 NT  3Y*J 

22  37  | 

BJFFER=PAD( BUFFERI |L A STKEF 1 1 ) ,27) } 

1 

21*22 

PRINTSY-M 

2283  | 

BUFFER *PAO( BUFFERI llABDEFt I ), BO) ; 

1 

21*78 

PR  I NT  j YM3 

2289  1 

CUTPUT*3urFER; 

1 

21  53* 

PRI  NTSY-19 

2290  | 

END; 

1 

2155* 

PRINTSYMb 

2291  | 

ENO  PRINTSYMB; 

1 

215t? 

PRINTSYMB 

2292  | 

1 

21563 

2293  | 

/*  STORE  AN  ENTIRE  QUAD  IN  THE  QUAD  TABLE 

•/ 

1 

21568 

229*  | 

1 

21561 

22"  1 

STOREQUAO  s 

1 

21563 

22'  1 

PROCEDURE  (QU*DNO,OPER , OPNDl ,0PND2,RESI  ; 

1 

216'  R 

22  9.  | 

DECLARE  1 QUAONO.OPER.OPNOl ,0PN02,RES)  FIXED; 

1 

21*68 

STOREQUAO 

2298  | 

RCD_NR*  ( Q’JADND-l  ) / MAXOUADS  S 

1 

21530 

ST  CREOUAD 

2299  1 

IF  RCD_NR  --*  PXD_3UFF  THEN 

1 

21602 

STOKE QJAD 

2303  | 

DO; 

1 

21626 

ST0RC3UAD 

2301  | 

file ;i,rcd_ buffi* quads; 

1 

21618 

STDREQUAO 

733?  | 

RC  D_ BUFF* RCD. BUFF  *1 S 

1 

216*0 

SIDRCOUAD 
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21)  i | 

L ) 1 

1 

2 1 ->  5 i 

4 1 O'il  J J * 

2304  | 

LOC_QUAD={|QUADNO-l)  MOD  MAXQUA0S)*44l; 

1 

21652 

ST  DRCCJ  ’ 

2305  | 

QUADS  ( LOC.CUAD  l*OPFR; 

1 

21684 

CTORCQ'ji 

2336  | 

QUADS  1 LC<C_0UAD4 1 >=0PND1  ; 

1 

21700 

STOREiUA 

2337  J 

OUADS  ILDC_QUAD*2)*OPND2; 

1 

21720 

STCRlOj- 

2308  | 

QUADS  ILOC_QUAO*3)*PES; 

1 

21  7<*Q 

STOReQJA 

2309  I 

RETURN; 

1 

2176  0 

STOREOUA 

2310  | 

END  STOREQJAO; 

1 

21  766 

STOREOUA 

2311  I 

1 

21772 

2312  J 

/♦  GET  OUAD  - RETRIEV  A FIELD  FROM  A QUAD 

*/ 

1 

21772 

2313  | 

1 

2177? 

2314  | 

GETCU AD: 

1 

21772 

2315  | 

R ROC  FOUR  E < QJADNU, INDEX  1 FIXED; 

1 

21  772 

2314  | 

DECLARE  I OUADNO, INDEX)  FIXEO; 

1 

21772 

GETQUAD 

2317  | 

RCD_NR=  C QU ADNO- 1 1 /MAX QUADS  ; 

1 

21 7a4 

GET  QUAD 

2318  1 

IF  RCD^NR  'i*  RCD_BUFF  THEN 

1 

21806 

GETQUAD 

2319  | 

00; 

1 

21  820 

GE  7QU  Al) 

2320  1 

FlLE(l,RCD_BUFF)xO’JADS:  <- 

1 

21822 

GET  QUAD 

2321  1 

RC0_3UFF=RCD_NR; 

1 

21344 

GETQUAD 

2322  1 

QUA3S*FlLEt 1,RCD_BUFF) ; 

1 

21852 

SETQUA J 

2323  1 

END; 

1 

21882 

GET  OJ  AD 

2324  | 

LOC_QUAD= I < QUADND-1 ) MOD  M AXQUAOS 1 *441 ; 

1 

21832 

GET  QUAD 

2325  1 

RE  T UP  N QUADS  1 LOC_QUAO* I NDE  X-l ) ; 

I 

21914 

GETQUAD 

2326  | 

END  GETQUAD; 

21942 

GETQ’JAD 

2327  | 

1 

21948 

2328  | 

7*  PUT  A FIELD  IN  A QUAD  */ 

1 

21948 

329  | 

1 

21948 

130  1 

PUT  QU  AD: 

1 

21943 

2331  | 

PROCEDURE  (QUADNO, INDEX, VALUE); 

1 

21943 

2332  | 

DECLARE  IOJAD.NO,  INDEX,  VALUE)  FIXED; 

l 

21043 

P'jT  QUAD 

2333  | 

RCD  NP=  I OJ ADNO- 1 ) /MAXQUA DS ; 

1 

21960 

PU T QJA  0 

2334  1 

IF  RC3_\R  -=  RCO_BUFF  THEN 

1 

2198? 

P JT  OUAD 

2335  1 

00; 

1 

23006 

PJTQ.'AD 

2336  1 

FILE! l,RCO_ BUFF )=QUAOS; 

i 

21998 

PUT  QUAD 

2337  | 

RCD_8UFF«RCD_NR ; 

1 

220~0 

PUTCjAD 

2338  | 

CUADS=F ILEf 1 ,RCD_BUFF) ; 

1 

22023 

PUT  Q i A 0 

2339  1 

END; 

1 

22058 

PUT JJAJ 

2340  | 

LDC_0'JAD=(  1 QUADNO-1 ) MOD  MAXOUAOS  ) *44 1 ; 

1 

22058 

PUT  Q JAD 

2341  | 

QUADS  I L 0C_QUAD*INDEX-1 )>  VALUE ; 

1 

2205  0 

PU  T QU AC 

234?  | 

RETURN; 

( 

28114 

PUT  QUAD 

2343  \ 

END  PUTOJAD; 

1 

22120 

PuT  QUAD 

2344  I 

1 

22126 

2345  | 

/•  PUT  A TEMPORARY  VARIABLE  IN  THE  SYMCOL  TABLE. 

THESE 

1 

22126 

2346  1 

ARE  GENERATED  BY  THE  PROGRAM  ANO  ARE  ALL  UNIQUE.  THE 

1 

2?  1 26 

2347  | 

ONLY  FRPOF  IS  OVERFLOW  */ 

1 

22126 

2368  1 

1 

22126 

2349  | 

PUTTEMP: 

1 

?2 1 26 

2350  | 

PROCEDJPC  (STACKLOC); 

J 

22126 

2351  | 

DECLARE  STACKLOC  FIXED;  /*  LOCATION  OF  TEMP 

IN  STACK  */ 

1 

22126 

PUT  I PMP 

2352  1 

IF  NSYMBCL  * SYMBOLS  THEN 

1 

22138 

PUTTEMP 

2353  1 

Do; 

1 

22162 

PUTTEMP 

2354  | 

OUTPUT*  * 9**  SYMBOL  TABLE  OVERFLOW,  MAX 

ISM  (SYMBOLS; 

1 

22154 

PUTTEMP 

2355  | 

CALL  EXIT; 

1 

??200 

PUT  I EM? 

235a  1 

END; 

1 

22214 

PUTTEmP 

2357  | 

NSVMROL=NSYMOOl ♦ 1 ; 

1 

22214 

PUTTEMP 

2358  1 

TA3L  E_L(IC  (STACKLOC  I-NSVM60L  ; 

1 

2?2?6 

PUTTEMP 

2359  | 

SIZE  INSYMBOD-O; 

1 

22242 

PUT1EMP 

2360  | 

OEF  CNSVMBOL 1=1 ; 

1 

22256 

PJTTFMP 

2361  1 

LOCAT IN SYMBOL )*0 ; 

1 

222  72 

PUTTEMP 

236?  | 

INIT  insymbol)*0; 

1 

22286 

PUTTEMP 

363  | 

SYMB  INS YMBOL )* VAR  I STACKLOC ) ; 

1 

22300 

PUTTEMP 

.344  1 

RETURN; 

1 

22324 

PUTTEMP 

2365  1 

END  PUTTEMP; 

1 

22330 

PUTTEMP 

2366  1 

1 

22336 

2367  1 

• 

1 

22336 

2368  { 

/*  FIND  1ABFL  IN  IABEI  TABI  E.  ERROR  JF  NOT  FOIIND  »/ 

! 

>2336 
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: 


i 


tit  \ 

1 

it  ■ - 

2370  1 

F INDL  A8: 

1 

223  16 

2371  1 

I 

22336 

2372  I 

PROCEDURE; 

1 

22336 

2373  1 

DECLARE  LA9  CHARACTER; 

1 

22336 

findlab 

2374  | 

LAB  = VARISPI; 

1 

22348 

FINOlAB 

2375  | 

1 * IS 

1 

22364 

FINDLAB 

2376  l 

DO  WHILE  I <*  NLA3ELS 

1 

22372 

FlND',43 

2377  | 

IF  LAB  1 0 ( I ) » LAB  THEN  DO; 

1 

22383 

F 1 IJDL  Act 

2373  | 

T ABLE_LOC ISP)  * I; 

i 

22438 

F l N0LA8 

2379  1 

RETURN; 

1 

22454 

FI  NJLAO 

2380  | 

END; 

1 

22460 

FINCLA3 

2381  1 

I * l+l; 

1 

22450 

FINDH-3 

2332  | 

END; 

1 

22472 

FINDLAB 

2383  | 

IF  NLABFL  < LABELS  THEN  DO; 

1 

224S0 

FI  NOLAB 

2334  I 

NLA3EL  * NLABFL  ♦ IS 

1 

22496 

FINOLAB 

2335  | 

LAflTOf NLABEL ) * LAB; 

1 

22508 

FINOLAB 

2386  | 

labdcf(?:label»*0; 

1 

22524 

FIND!  A3 

2337  1 

TA3LEJ.0CISP1  * NLA3EL ; 

J 

22533 

FJNOl A3 

2338  | 

RETURN; 

1 

22554 

F I N0LA6 

2387  1 

ENO; 

i 

225o0 

FINOLAB 

23  90  | 

ELSE  00; 

1 

2256C 

FINDLAB 

2391  | 

OUTPUT*'***  LABEL  TABLE  OVERFLOW,  MAX 

IS  * 1 lLABELS; 

1 

22563 

FINDLAB 

2392  1 

CALL  EXIT; 

1 

22614 

FINDLAB 

2393  | 

ENO; 

1 

22629 

FINDLAB 

2394  1 

END  FINOLAB; 

1 

2262  3 

FINOLAB 

2395  { 

1 

22634 

23  96  | 

/*  INSERTS  A BRANCH  LABEL  INTO  THE  LABEL 

table  */ 

1 

22624 

2397  1 

1 

22634 

’378  I 

8RANCHL AS: 

1 

22634 

399  | 

PROCEDURE ( LAB ) ; 

! 

22634 

2400  | 

DECLARE  L A 3 CHARACTER; 

1 

22634 

BRANCHLA 

2401  1 

NLA9EL=NLA3EL*l; 

1 

2264o 

BRANCL 

2472  1 

IF  NL  A 3EL*LA3ELS  THEN  DC; 

22658 

BRANCH-..  A 

2453  | 

OUTDJT*'***  LABEL  TABLE  OVERFLOW; 

1 

22674 

3.ia,n:hl  A 

2434  | 

CALL  EXIT; 

1 

22654 

6R  ANCIiL/ 

2405  i 

ENO ; 

1 

22708 

89  A NvHL 6 

2406  1 

IA010INIABEL»*LAB; 

1 

22708 

BRANC.ILA 

2407  i 

LABDEFI NLA3ELI*0; 

1 

22  724 

BR  ANCHL  7 

2408  I 

VAP<SP-1)=L«8; 

. 

1 

22  73  8 

branlhla 

2409  | 

TA3LE_LCC<  SP-1 )*NlADEL; 

1 

22758 

BR ANCHL A 

24n  | 

S AV El NJEX*N LABEL ; 

I 

22778 

6RANC.HLA 

2 411  J 

R eturn; 

1 

22736 

branchla 

2412  1 

END  BRANCH!.  A3; 

1 

22752 

liP.A.'JCHLA 

2413  1 

1 

22  75  3 

2414  | 

1 

22  799 

2415  I QUADGEn: 

1 

22798 

2416  1 

PROCEDURE  1 TYPE  > ; 

1 

22798 

2417  1 

1 

22  799 

QUA DOE H 

2418  1 /•  DUMNY  UUAOGEN  */ 

1 

2 2 7 9 3 

QUADGEN 

2419  | 

1 

22798 

OU AOS  t N 

2420  1 

DECLARE  SLOC  FIXED; 

1 

22  753 

QUAD SEN 

2471  1 

DECLARE  TYPE  FIXED;  /*  QUAD  TYPE  •/ 

1 

22310 

QUADGEN 

2422  | 

1 

22810 

0 J A D F N 

2423  | 

DECLARE  ITNAME,OPNDl,OPND2)  CHARACTER; 

I 

22  J 10 

QJ AOGEu 

2424  I 

/•  OPERANDS  FOR  STOPEQUAO  */ 

1 

22310 

QUADGEN 

2425  1 

DECLARE  ( 1 TVP  ,I0P1  ,I0P2, IRES!  FIXED; 

I 

22810 

00  AC  J!;  V 

2426  1 

I TYP*  TYPE  ; 

1 

2 2610 

COAOjFN 

2427  1 

io<n*o; 

1 

22913 

QUADGEN 

2423  I 

I0P2=D; 

1 

22824 

tJJADSEN 

2429  | 

1 R E S*  0 ; 

1 

22330 

QUADGEN 

2430  1 

! 

22836 

OJAOSEN 

2431  | 

IF  TYPE  <*  MHOO  THEN  00; 

1 

22836 

OJAOGEN 

2432  1 

l*TABLE_L0C(SP-2l ; 

1 

22952 

0U4DGEN 

2433  | 

I OP  I* IS 

1 

22372 

0JADG2.N 

2434  1 

IF  I < 0 THFN 

1 

22980 

OJAOGEN 

i 


' 


I 
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2tia  | 

0-*N.>l=<.:/'<YALl  -11! 

2836  1 

ELSE 

2837  1 

0PND1«SYMB(I»; 

2638  1 

I«TABLE_L OC l S°) 5 

2639  1 

1 0P2*  I ; 

2660  1 

if  i < 0 then 

2661  | 

0PND2*C0NVAL(-l»; 

2662  | 

ELSE 

2663  1 

0PN02  = SYM9in; 

2666  | 

TNAME='.T* 1 | NEXTQUAD 

2665  | 

VARISP-21— TN4ME; 

2666  | 

CALL  PUT  TEMP  1 SP-2 1 ; 

2667  | 

IRES»TABLE_L0C(SP-2>; 

2668  | 

END; 

2669  | 

ELSE  IF  TYPE  - HALT  THEN 

2650  | 

DO; 

2651  | 

END;  * 

2652  1 

ELSE  IF  TYPE  <*  B*  THEN 

2653  1 

DO*. 

2656  | 

IRES=TA8LE_LOCISP)5 

2655  | 

IOPI-O; 

2656  | 

IOP2-*0; 

2657  | 

OPN91»0: 

2653  1 

OPND2=OS 

2659  1 

END; 

28a0  1 

ELSE  IF  TYPE  = PEL  THEN  00; 

265 1 1 

TN4ME*'.T« | INEXTQUAO; 

2662  1 

I *T  A8LE_L0C 1 S P-2 ) ; 

2663  | 

I OP  1*1; 

2666  | 

IF  I < 0 THEN 

2665  | 

CPNOUCONVALt-I)  ; 

2856  | 

ELSE 

2867  | 

0PN01=SYM9m  ; 

2868  | 

I»TA8LE_L0C<SP); 

2869  | 

1 082*1 ; 

2870  | 

IF  I < C THEN 

2871  I 

0PND2«C0NVAH-I); 

2672  1 

ELSE 

2673  1 

0PN3?=SY*3( 1 * ; 

2 6 76  ( 

VAR{ S?-21=TNAME; 

2675  1 

CALL  “UTTEMP1S°-2I; 

2676  I 

IRES*  T48LE_L0C ISP-21; 

2677  1 

ityp*fixv(sp-i»; 

2678  | 

END; 

2679  | 

ELSE  IF  TYPE  - ASSN  THEN 

2630  1 

Do; 

2691  1 

l«TA8LE_L0C»SP); 

2682  1 

I0P1»I; 

2683  1 

IF  1 < 0 THEN 

2686  | 

0PND1-C0NVAL1-I »; 

2695  1 

ELSE 

2686  | 

0PND1*SYMB( I I ; 

2697  1 

I RE  S*T  ABLE  L0C1SP-2I; 

2683  1 

END; 

2699  1 

ELSE  IF  TYPE  * SUBS  THEN 

2690  1 

DO; 

2691  1 

TNAME* • .T* | (NEXTQUAt 

2692  1 

I*TABLE_l OC 1 SP-1 I ; 

2693  1 

I0P2-I; 

2696  1 

IF  I<0  THEN 

2695  1 

OPND2=CONVAL(-I » 

2696  1 

ELSE 

2697  | 

0PND2*SYMB( I ); 

2698  1 

SL0C*T4BLE_L0C( SP-2 ) ; 

2 699  | 

I3P1-SL0C; 

2600  | 

OPNDl  = SYMBJSI  OC I S 

1 t / 
22)22 
22922 
2299b 

229  52 
22970 
22  994 
23012 
23012 
23036 
2306a 

230  = 9 
23108 
23128 
23123 
23160 
23152 
23152 
231F6 
23176 
23192 
23198 
23209 
23218 
23232 
23232 
23256 
23258 
23303 
23316 
25390 
23353 
23353 
23382 
23399 
23306 
23830 
23888 
23888 
23872 
2 389  2 
23512 
23532 
23552 
23552 
2 3598 
23576 
23592 
23600 
23628 
2 368  2 
23682 
28  666 
2368a 
236  86 
2371  8 
2 37  1 0 
23782 
23762 
23T70 
23738 
23612 
23812 
23836 
23356 
23068 


3'JADGEG 
306  038'. 
OJAD^F’. 
QJAJ3E’. 
Q'JA  038'. 
0U.1DGE ». 
QUAOSf'. 
QJAOii: 
QUAOGF ‘ 
QJAOGFN 
Cl.AOr.E- 
QJAOGF' 
O’JAOSE*. 
OJADSFA 
QUAOSF’. 
QJADOFf 
QUADCF’ 
OJAOCE' 
O'JAOuE'- 
Q'JAQSE’ 
QJADSEr 
QUAOGF ‘ 
QUAOGL' 
QJAO'F' 
QJAOSE ' 
CJA : 
OJAOCc' 
QJAOGf ‘ 
S'JA  Jot' 

ouajgs’ 
JUAOGt.' 
OuADGE’ 
Q'J  A 0 0 3 1 

aoAoor* 

QUA  0 GF  * 

CJAOGE ' 

0 JAOGc ' 

CJAO'GE' 

QJAOSE’ 

quads:’ 

3JA03E ' 

DJA'ISF’ 

QUADS'’ 

QUAOGF 

c jAosn 

QJAOSE' 

QJAOGF’ 

QJAOSE 

OUADGE 

0UA03E ' 

00  A D 3 L 

QJA  i 3E 

Q JAOGE  1 

QJAOSE 

QOAOGE 

QUADGE 

CUAOGE 

QUADGF 

0U4D3E 

QUAGGE 

QO  A 0 3E 

QJAOSE 

wUADSE 

OJAOCE 

JIA03F 


I 


] 


wap* 
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2a  Ji  i 

V A 1 S -»—  ? • = i -;A3c5 

« 

a j . j 

*u\  ij-'. 

2502  1 

CALL  BUT  TEMP CSP-21: 

i 

239C0 

OUADSFN 

2503  | 

IRES«TABLE_L0CISP-2); 

l 

23920 

CJADGcN 

2504  1 

LOCATINSYMBOLI— StOC; 

i 

23940 

QUADGE  N 

2505  I 

END ; 

i 

23959 

QUADGEN 

2504  | 

ELSE  IF  TYPE  * BZ  THEN  00; 

i 

23953 

QU A DGEN 

2507  I 

IRES  « T*BLE_COC(SP-l); 

i 

239P2 

OUADCEN 

2503  | 

IOP1*0; 

i 

24002 

OUAOOEN 

2509  | 

IOP2'0; 

i 

24008 

Q'JADGFN 

2510  1 

OPN01=0; 

i 

24014 

QUA DOES 

2511  | 

0PN02*0; 

i 

2402C 

QUADGE N 

2512  | 

END; 

i 

24042 

QUADOEN 

2513  1 

ELSE  IF  TYPE  <=  OR  THEN  00; 

i 

2404? 

QUAOGf N 

2514  | 

TNAME  x • ,T*I  INEKT3UA0; 

i 

24066 

QUA?*,-'  ti 

2515  | 

I * TABLE_L0CISP-2>; 

i 

24093 

QJADOEN 

2516  I 

IOPl  « I; 

i 

24113 

QUA DSTN 

2517  | 

if  i < o 'then 

i 

24126 

ojadgen 

2519  1 

OPNDl  « CONVALI-I); 

i 

24 1 50 

OUADOEN 

2519  | 

ELSE 

i 

24168 

QUA  DDE  6 

2520  | 

OPNDl  « SYMBI 11; 

i 

24163 

CJAOOFN 

2521  1 

I x TA3LF_L OC ( SP 1 • 

24192 

CJADOE  , 

2522  1 

I0P2  x I; 

i 

24?03 

OUAUGf, 

2523  | 

IF  I < 0 ThFN 

i 

24216 

3JAD0FN 

2524  1 

OPN02  = CONVALI-I 1 ; 

i 

24240 

OUADOLN 

2525  1 

ELSE 

i 

24258 

OJA  DOF  0 

2526  I 

0 PND?  * SYN8I I 1 ; 

i 

2425S 

QUADOEN 

2527  | 

VARISP-?)=TNA3E; 

i 

242  32 

O'JA  JCF,\ 

2529  1 

CALL  PUTTEMPISB-2); 

i 

24302 

QUAOOEO 

2529  I 

|RES*TABLE_L0CISP-2l; 

i 

24322 

CUADjEr 

2530  1 

END; 

i 

24342 

QUADS =0 

1531  1 

ELSE  1=  TYPE  « UM1N  THEN 

i 

24342 

QUA0GF6 

2532  | 

OC: 

i 

24374 

OUADOC.'. 

2533  1 

l«TABLE_L0C(SPI; 

l 

24366 

QJADOE-. 

2574  | 

io?i=  t: 

i 

24392 

QUADGF'v 

2535  | 

10P2=0; 

i 

2439D 

qjadgc- 

2536  I 

IF  I < o THFN 

i 

24396 

QUA  DOE \ 

2537  | 

OPNDlxCONVAL  l-n  ; 

i 

24420 

QUADGE? 

2533  | 

ELSE 

i 

2443B 

OUADOE.' 

2539  1 

CPND1=  SYM8 1 ti; 

i 

24639 

CD A3GF • 

2540  | 

0PN.D2X* •; 

i 

24462 

quads:- 

2541  | 

T NAME  « • .T» M NEXTOUAD; 

i 

24470 

QUA DOE* 

2542  1 

V AP.  ( S P 1 xTNAME  ; 

i 

245C2 

guiO'.sr 

2547  | 

CALL  PUTT EMP ISP); 

i 

24519 

CD  AO  04 * 

2544  | 

IRES=TA3LE_L0CISPI; 

i 

24534 

Qua oge  r 

2545  1 

END; 

i 

24550 

QUAD  ,c' 

2546  | 

ELSE  IF  TYPE  « ZQ  THEN  00; 

i 

24550 

QUA  JoF' 

2547  f 

!*TA91E_L0CISP-1  ); 

i 

24574 

Qu.'.oor  ‘ 

2549  | 

lo3i=i : 

( 

24594 

QUADGE 

2549  | 

0°ND1 * 1 ; 

i 

24  402 

QUADS! ' 

2550  1 

IOP2=o; 

i 

24616 

QUA  OOF ■ 

2551  | 

0 P.ND  3*0; 

i 

24c24 

QUAOOE? 

255?  | 

T NAME«  * *; 

i 

24638 

Qjf OjC' 

2553  I 

IRES'O; 

i 

24646 

QUAD;'."  ■ 

2554  | 

END; 

i 

24552 

Q J'DGt" 

2555  | 

EL  SE  IF  TYPE  * LAB  THEN 

i 

24652 

QUADGE- 

2556  | 

DO; 

i 

24634 

ouAor.r* 

2557  | 

IOP1*TABLE_LOC(SP-I) ; 

i 

24676 

QUADGF.f 

2559  | 

0PN01«VAR(SP-1); 

i 

24696 

QUADGE ‘ 

2559  | 

END; 

i 

2471  6 

QU  ADSt ? 

2560  | 

CALL  STOAEQUAD  1 NEXT QUAD,  ITYP,  IOPl , 10P2,  IRES)  • 

i 

24716 

QUADGE- 

2541  | 

NEXTQJAOxNEXTODAD+l; 

i 

24764 

QUADGE? 

2552  1 

END  3UADGEN; 

i 

24776 

QUADGE’ 

2563  1 

i 

24792 

2564  | 

i 

24782 

2565  | 

i 

24782 

2566 

/•  INITIALLY  DEFINES  A NFW  l ABEL  OR  DEFINES  A 1 ARFl  PRFV10USIY 

1 

24162 
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2567  1 

sroato  •/ 

1 2+M2 

2569  | 

, 

i 26762 

2569  1 

OEFINELAB: 

1 2673? 

2570  | 

1 26782 

2571  J 

PRDCEDJREISTACKLOC  1 ; 

1 2679? 

2572  | 

DECLARE  LAI  CHARACTER; 

1 26782 

DEFINE  LA 

2573  | 

DECLARE  TEMPREF  FIXED; 

1 26756 

DEFINElA 

2576  | 

DECLARE  STACKLOC  FIXED;  /*  LOC  IN  STACK  OF  LABEL  */ 

1 26796 

DFFINELA 

2575  | 

TABLE_LOC($TACKinCI  * 0! 

1 26796 

DEFINE l A 

2576  | 

LAB  * VAR (STACKLOC) ; 

| 26808 

DEFINELA 

2577  J 

I = l; 

1 26326 

DEFINELA 

2578  1 

’ DO  WHILE  I <=  NLABEL : 

1 26332 

DEFINE  LA 

2579  | 

IF  LA3IDI I ) = LAB  THEN  DO; 

1 26863 

DEFINELA 

2530  | 

LABDEF(I)  = l; 

1 26393 

DEFINELA 

2581  1 

TABLE_LOC( STACKLOC)  * I; 

1 26516 

DEF INFLA 

2582  | 

. return; 

1 26930 

OEF  INEL  A 

2593  1 

end; 

1 26936 

DEFINELA 

2536  | 

I = l+l ; 

1 26936 

DEFINELA 

2535  | 

END; 

| 2666B 

DEFINELA 

25  36  | 

NLABEL  = NL ABEL  ♦ l ; 

1 26956 

det : nel  a 

2537  | 

IF  NLABEL  = LABELS  THEN  OP; 

I 26968 

DEFINELA 

2593  | 

OUTPUT  = • ***  LABEL  TABLE  OVERFLOW; 

1 26536 

OEF INFLA 

2539  | 

CALL  EXIT; 

1 25096 

DIF ; NFL  A 

'5»D  1 

END; 

1 25018 

DEFINELA 

.91  | 

LABIDI NLABEL 1=  LAB; 

1 25018 

OEF INELA 

*592  1 

LABDEF (NLABEL ) = l; 

] 25036 

DEFINELA 

2593  | 

TA3LE_L0C(STACKL0C)  = NLABEL; 

1 25050 

DEF INFLA 

2596  1 

return; 

1 25066 

DEFINFLA 

2565  1 

END  definelab; 

1 2507? 

DEFINELA 

2596  | 

VAR ( SP-1 )=LA3; 

1 25078 

2537  | 

/•  SET  THE  SIZE  COLUMN  OF  THE  SYMBOL  TABLE  TO  THE  ARRAY 

DIMENSION 

1 25116 

2598  1 

OF  DIMENSIONED  VARIABLES  */ 

1 25116 

2599  J 

1 25116 

2600  1 SETDIM: 

1 25116 

2601  1 

PROCEDURE; 

1 25116 

2602  | 

K*FIXV(SP-2>; 

1 25116 

SETDIM 

2603  1 

j=nsymbol; 

1 25166 

SETDIM 

2606  1 

DO  1=1  TO  NVARDEF; 

) 25156 

SETDIM 

2605  1 

SIZE( J l*K ; 

1 25198 

SEiori 

26  06  1 

J= J-lS 

1 25216 

SETDIM 

2607  1 

END; 

1 25226 

SETDIM 

2603  1 

END  SETDIM; 

1 25236 

SETDIM 

26  09  1 

1 25260 

2610  1 

/•  STORE  A SYMBOL  IN  THE  SYMBOL  TABLE.  ERRGR  IF  IT  IS 

ALREADY 

1 25260 

2611  1 

DEFINED.  SET  ALL  OEFAULTS  IN  THE  TABLE  */ 

1 25260 

2612  1 

1 25260 

2613  1 PUTIT: 

) 25260 

2616  1 

PROCEDURE  (STACKLOC); 

1 25260 

2615  1 

DECLARE  STACKLOC  FIXFO;  /*  LOC  IN  STACK  OF  VARIABLE 

IDENT  */ 

1 25260 

PUT  I T 

2616  1 

IF  NSYMBOL= SYMBOLS  THEN 

1 25252 

PJT1  T 

2617  | 

DO  ; 

1 2 e 7 7 6 

PJI  (T 

2613  1 

OJTPUT=»***  SYM30L  TABLE  OVERFLOW,  MAX  IS  ‘IISYMBOLS; 

1 25263 

PUT  1 T 

2619  | 

CALL  EXIT; 

1 25316 

PJT  1 T 

2620  1 

END; 

1 25323 

PJT  IT 

2621  | 

T ABL  E_LOC  ( ST  AC.KLOC  )=0  ; 

| 25328 

PUT!  r 

2622  | 

SYMB ( N SYMBOL* l ) * VAR { STACKLOC ) f 

1 25362 

PU1  IT 

2623  | 

I*  IS 

1 25370 

PJT  IT 

■*626  1 

S-VAR I STACKLOC); 

I 25373 

0JT1T 

,25  1 

00  WHILE  SVMBI II  -=  S; 

1 25396 

PjTJT 

*626  | 

l*l+l; 

| 25666 

PUTIT 

2627  | 

end; 

1 25656 

PJT  IT 

2623  | 

IF  I <«  NSYMBOL  THEN 

1 25656 

PUT  1 T 

2629  1 

DO; 

1 25688 

PJT  1 T 

2630  | 

OUTPUT*' DUPL ICATE  IDENTIFIER  (VARIABLE)  NAME 

•IIS; 

1 25630 

PUTIT 

2631  | 

RETURN; 

1 25513 

PUTIT 

2632 

END; 

1 25526 

PUTIT 
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[ 


I 

i 


2 6 M 

1 

NS*  'o  x-  l ; 

1 

/S  */•* 

P J 1 i i 

2636 

1 

TA8LE_L0C(STACKLCCI*NSYMa0L; 

1 

25532 

PUT!  T 

2635 

1 

S l Zf { N SYMP,GL 1=1: 

1 

25568 

putit 

2636 

1 

LOCAT (NSYMB0LI=0; 

1 

255o6 

pjt  ; r 

2637 

1 

DEFI NSVK93L 1=0; 

1 

25573 

putit 

2633 

1 

INI T (NSYM0QL)=0t 

J 

25592 

PUTIT 

2639 

1 

RETURN; 

1 

25606 

PUTIT 

2660 

1 

END  PUT  IT; 

1 

25612 

PUTIT 

2661 

1 

I 

25618 

2662 

1 

/•  FIND  AN  IDENTIFIER  IN  THE  SYMBOL 

TABLE. 

ERROR  IF  NUT  FOUND  */ 

I 

2551  3 

2663 

1 

I 

25618 

2666 

! 

FINDI T: 

1 

25618 

2665 

1 

PROCEDURE  IPS!; 

1 

2561  8 

2666 

1 

OECLARE  PS  FIXED;  /*  LOCATION  IN  STACK 

OF  SYMBOL 

*/ 

t 

25ol8 

FI  NO  IT 

2667 

1 

S=VARtPSIS 

1 

25630 

F1NDJ  T 

2669 

1 

1*15 

1 

25566 

FINDIT 

2669 

1 

DO  WHILE  I <*  nsymbol; 

1 

25556 

FINDIT 

2650 

1 

IF  SYMBI I 1 « S THEN 

1 

256/0 

FINDI T 

2651 

! 

DO; 

1 

25723 

FINDIT 

2652 

1 

T A8L  E_LOC IPS  1*1; 

1 

25720 

FINDIT 

2653 

1 

return; 

1 

25736 

FINDIT 

2656 

1 

end; 

1 

25762 

FINDI T 

2655 

1 

I* I ♦ 1 * 

1 

25762 

FINDIT 

26  56 

1 

END; 

1 

25756 

FINDIT 

2657 

OUTPUT* * ***  VARIABLE  IDENTIFIER 

NOT  FOUND  - 'IIS; 

1 

25762 

FINDIT 

2653 

1 

table_locipsj*o; 

1 

259  JO 

FINDI  I 

2659 

1 

R FTURN; 

1 

25316 

FINDIT 

2660 

1 

END  FINDIT; 

1 

25820 

FINDIT 

2661 

1 

I 

25326 

’662 

1 

/*  FIND  A N’JMBFR  IN  THE  CONSTANT  TABLE.  IF 

NOT  FOUND, 

ADD  IT  •/ 

1 

25826 

26  53 

1 

1 

2 5 326 

2666 

1 

FINDNO: 

1 

25326 

2665 

! 

PROCEDURE; 

1 

25326 

2666 

1 

L*CI XVISP) ; 

I 

25326 

FINDNO 

2667 

1 

Conval  i nconstant*d=l; 

I 

2 5 3 56 

FINDN'J 

26-0 

1 

CDNL  CC ( NCONST  ANT ) =0 ; 

1 

25076 

F l NONU 

266  3 

1 

I*  i ; 

1 

25383 

F I NON"; 

2673 

1 

oo  while  coNVALtn  -.*  l: 

1 

25396 

F I NO NO 

2671 

1 

1- 1 ♦ l ; 

1 

25920 

F I NUNS 

2672 

i 

end; 

1 

25932 

FI  NON J 

2673 

1 

TA3LE_L0C( SPI*-I 5 

1 

25960 

F I NO NO 

2676 

1 

IF  I <=  NCONSTANT  then  RETURN; 

1 

25553 

FINDVJ 

2675 

1 

IF  NCONS T ANT *1  * CONSTANTS  THEN 

I 

25990 

T I NJNU 

2675 

1 

DO ; 

1 

26999 

FINDNO 

2677 

1 

l=CONSTANTS-l; 

1 

26030 

FINJ.NJ 

2579 

1 

OUTPUT*****  CONSTANT  TABLE 

OVERFLOW,  MAX  IS 

MIL; 

1 

26012 

FINDNO 

26  7 9 

1 

CALL  EXIT; 

1 

26058 

FIND NO 

2683 

1 

END; 

1 

26  J72 

F JNJNJ 

2631 

1 

NCONSTANT*! ; 

! 

26  972 

FI  NON!) 

2682 

1 

RETURN; 

1 

26380 

FINDNO 

2 5»3 

1 

END  F INDNQ ; 

1 

26036 

FINDNO 

2606 

1 

I 

26  952 

2635 

j 

1 

26C92 

2606 

i 

/*  MOVE  AIL  STACK  CONTENTS  FROM  F TO 

T */ 

1 

26  072 

2697 

! 

1 

26072 

2639 

1 

MOVESTACK: 

1 

26  092 

2689 

1 

PROCEDURE  <F,T>; 

1 

2 1-  0 9 2 

2690 

1 

DECL  A°  F I F , T > FIXED; 

1 

26092 

MDVESTAC 

2691 

1 

TABLE_LOCIT)*TABLE_LOCIF) ; 

1 

26106 

MOVE  ST  Aw 

2692 

1 

VA  R ( T I =V AR ( F ) ; 

1 

26128 

MOVE STAL 

2693 

1 

FIXV(T|*FIXVIF|; 

1 

26152 

MOVTSTAC 

2696 

1 

pars e_st ackiti* parse  stackif); 

1 

26176 

MOVE  ST  AC 

2695 

1 

END  MOVESTACK; 

1 

26196 

MOVE ST  AC 

696 

1 

i 

26200 

.697 

1 

1 

26200 

2698 

1 

1 

26200 

APPENDIX  7-1  - **2 


2699  | 

/*  CENLOlJP  GENERATES  THE  QUADS  NECCSS4RY  fu*  0:3  SIAltMcMS  */ 

1 id  JU 

2709  | 

1 26290 

2701  | 

GENLOOP: 

1 26209 

2792  1 

PROCEDURE; 

J 26209 

2701  | 

SP=  SP-l ; 

! 262C9 

GENLOOP 

279*  1 

CALL  Q'JADGEN  ( ASGN  1 ; 

J 2622* 

GENlOOP 

2 705  | 

L 00 P_ I NOE X=  T A BLE  LOCTSP-21; 

1 262*0 

GENI  OOP 

2 706  | 

SP=SP+l; 

1 26260 

GENL OOP 

2707  1 

SAVFVAR=VAR!SP-1 1 ; 

1 26272 

GENLOOP 

2705  | 

S AVELOC=T  A3LE_L0C( SP-1 » : 

1 26292 

GFNLDOP 

2709  | 

CALL  9RANCHLA9! • .t' 1 1 NEXTQUADI; 

1 26312 

GENLOOP 

2719  l 

S AVL A5N0=SAVL ABNO* 1 > 

1 2&J52 

GENLOOP 

2711  | 

SAVLAB! SAVLA3N0)=VAR(SP-1 ) ; 

1 2636* 

GENL CUP 

2712  J 

CAll  OFFlNELAB(SP-l); 

1 2639? 

GENLOOP 

2713  | 

CALL  OJADGEN ! L A8  1 ; 

1 26*12 

GENLOOP 

271*  1 

T ABLE.LOC  tSPl-LOOPUM; 

1 26*28 

GENLOOP 

2715  1 

T ABLF_L CC ( SP-2 )=L09P_IN0EX ; 

j 26*44 

GENLOOP 

2716  | 

F IX  V(  SP-1 » = C T ; 

| 26*6* 

GENLOOP 

2717  | 

CALL  OUAOGENIREL 1 ; 

1 26*8* 

GENLOOP 

2718  | 

5 A VO'UDND* S AV  OUDNO+l ; 

| 265  DO 

GENLOOP 

2719  J 

SAVQU9I SA V9U9N3I = NEXTQUAO; 

1 26512 

GENLOOP 

2720  i 

CALL  QUAOGEN! ZCI ; 

1 26528 

GENLOOP 

CALL  P'JTOUAO!  NEXTOUAO-l,  1,BTI  ; 

1 265** 

GENLOOP 

. 2 1 

I«TA3LE_L0C!SP-2I ; 

1 26539 

GENLODO 

2723  ( 

CALL  PUTQUAD!  NEXT  QUAD- 1 ,2,1); 

1 26690 

GENLOOP 

272*  | 

RETURN; 

I 2663  6 

GENL CUP 

2725  | 

END  GENLOOP; 

1 266*2 

GENLOOP 

2726  | 

1 266*3 

2727  | 

| 266*8 

2723  | 

J 266*8 

2729  | 

/*  THE  SYNTHESIS  ALGORITHM  FOR  XPL  */ 

1 26o*e 

2730  | 

| 266*8 

2731  1 

| 2*6*3 

2732  I SYNTHESIZE: 

1 266*8 

2733  1 PROCEDURE!  PI  HO  JCT  I0N_NUM8ERI  I 

1 266*8 

273*  | 

DECLARE  PRODUCT ION_NUMBER  FIXED; 

1 26t*5 

SYNTHESI ZC 

2735  | 

1 26669 

SYNTHESIZE 

2736  | 

/*  THIS  PROCEDURE  IS  RESPONSIBLE  F CR  THE  SEMANTICS  ICGOF  SYNTH 

ESIS1 , 

IF 

1 26669 

iYNTHtSIZL 

2737  | 

ANY,  OF  THE  SKELETON  COMPILER.  ITS  ARGUMENT  IS  THE  NUMBER  OF  THE 

1 26660 

SYNTHES | ;c 

2733  | 

PRODUCTION  WHICH  WILL  BE  APPLIED  IN  THE  PENDING  REDUCTION. 

the  global 

1 26660 

SYNTHESIZE 

2739  | 

VARIABLES  M?  AND  Sp  POINT  TO  THE  SCUNOS  IN  THE  STACKS  CF  THE 

right 

PART 

1 26660 

synthesize 

27*9  I 

OF  THIS  PRODUCTION. 

1 2666 J 

SYNTHESIZE 

27*1  | 

NORMALLY,  THIS  PROCEDURE  WILL  TAKE  THE  FORM  OF  A GIANT  CASE 

statement 

1 26660 

SYNTHE  SI ZE 

27*?  | 

PN  PRODUCTION-NUMBER.  HOWEVER,  THE  SYNTAX  CHECKER  HAS  SE RANT  I IS  1TMS 

1 26460 

SYNTHESIZE 

27*3  | 

TERMINATION  OF  CHECK INGI  ONLY  FOR  PRODUCTION  1. 

*/ 

1 26660 

synthesize 

??**  1 

| 24660 

synthesize 

27*9  | 

| 26660 

synthesize 

:».*  i 

j 26669 

synthesize 

7**7  1 

/•  CNF  statement  for  fach  production  of  the  grammer  */ 

I 26660 

synthesize 

. r*«  * 

1 26660 

SYNTHESIZE 

>*»•  1 

1 26660 

synthesize 

•39  CASE  PPOOUET I0N_NUH3E« : 

( 26660 

SYNTHES IZE 

P »%  | f 

» /•  OU'MV  CASE  SINCE  PRODUCTIONS  NUMBERED  FROM  l */ 

J 2663* 

SYNTHESI 7E 

/•  <*•■>;•*«»>  CSYATEMCNT  LlST>  */ 

1 2663* 

SYNTHESIZE 

<•  <*•;',«*<•>  :t«  <ST AT EMENT  LIST>  */ 

1 26  S'i* 

SYNTHESI /f 

Ml 

1 264A* 

SYNTHESIZE 

• *»  — 2 THEN  /•  WE  OlON'T  GET  HERE  LEGITIMATELY  •/ 

1 266*2 

SYNTHESIZE 

>0; 

1 26716 

SYNTHESIZE 

CALL  lAROR  1*  EOF  AT  INVALIO  POINT',  Hi 

! 26703 

SYNTHESI ZF 

'Al  STACA.OUMP; 

1 26/28 

SYNTHESIZE 

1 26736 

SYNTHESIZE 

•*  i iv,  •falSEj 

1 26736 

SYNTHESIZE 

1 267*2 

SYNTHESI ZE 

• *•••*  . 1 3 7 > 1 »•  <statement>  •/ 

1 267*2 

SYNTHESIZE 

1 267*2 

SYNTHESIZE 

- • '»  II*  1ST ATFWCST  1 IST>  <ST 4TEMENT>  */ 

26750 

SYNTHESIZE 
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4 


i i 


2 'j5 

2766 

2767 
2 768 
276<> 

2770 

2771 
2 772 
2773 


2800 
23.71 
2.332 
2873 
25  34 
2335 

2836 

2837 
2878 
2839 
2313 
2311 
2*12 
2313 
28!4 

2815 

2816 
2317 
2813 
2819 
29  23 

2371 
28  22 
2823 
2826 
'825 
*28 
4827 
2828 
2829 
283.7 


/* 

/* 


<ST  AT  EMENT)  <BASIC  STATEMENT)  */ 

<ST4TEME.NT>  ::=  <IF  STATEMENT'*  */ 


/*  < BA  SI C STATEMENT)  Si*  <ASS1CNMENT> 

00; 

TBAS1C  « l; 


• / 


EN7 ; 


2 774 

1 

/• 

<9A  SI  C 

2775 

1 

• 

2776 

1 

/* 

< BA  SI  C 

2777 

1 

t 

2779 

\ 

/• 

<BAS!C 

2779 

1 

• 

2730 

1 

/* 

<3AS!C 

2781 

1 

• 

2732 

1 

/* 

< 9 A SI  C 

2733 

1 

DO; 

2734 

1 

T BA  SI  C 

2795 

1 

END; 

2786 

1 

/• 

<R\S1C 

27  97 

1 

T BA  SI  C 

2793 

1 

/* 

< BA  S I C 

2789 

1 

00; 

2790 

1 

CALL 

■•91 

1 

T3AS 

92 

1 

END; 

«.  nz 

1 

/• 

<BASTC 

2794 

1 

• 

2795 

1 

/* 

<94  SI  C 

2796 

1 

• 

2 7*7 

1 

/* 

< BA  S I C 

2793 

1 

» 

2 709 

1 

/* 

< BA  SI  C 

CGROUP)  ; »/ 

PROCEDURE  DEFINITION) 
4RETURN  STATEMENT)  J 
<C  ALL  STATEMENT)  ; */ 

<GC  TO  STATEMENT)  ; */ 


*/ 


*/ 


f>; 


<DECLARATION  STATEMENT) 
HALT  ; */ 


•/ 


*/ 

*/ 


*/ 


*/ 


*/ 


/•  < I F STATEMENT)  ;:=  <IF  CLAUSE)  <ST  AT  EMENT) 

oo; 

IF  T3AS  1C  = 1 THFN  03; 

CALL  8R  INC  HI  A3  I • .L* I 1 S A VOUD I S AV QU DNu * ) ; 

CALL  PUT.)‘.nn(SAVDUOISAYOUONC),4,SAVEINDEXl  ; 

CALL  PJT3UA3<  SAVO'jni  SAVOUDNO)  , 1,BF)  ; 

SAV7U3\a*S4VJU0NG-l; 

CALI  JFFINELA3(SP-ll  ! 

call  quadgeni lab  ) ; 

END: 

IF  T9ASIC  » 6 THEN  DO; 

1=GET0UADIN=XTQUAD-1,4I ; 

NEXT Q’J  VD  * NEXTQUAD-l; 

CALL  PUT2UA0 1 S A VQHDI  S AVOUDNO  ) » 4»  I 1; 

CALL  PUT QUAD  I SAV'JUDI  S AVOUDNO  1 1 1 ,BT  ) ; ' 

SAVQUONj-SAVQUONO-1; 

END; 

END; 

< I F STATEMENT)  : <IF  CLAUSE)  <TRUE  PART)  <STATEMENT> 

IF  SAVEQUAO?  -=  0 THEN  DO; 

CALL  BRANCHLABI • ,L • I I SA VEQUAD2 1 ; 

CALL  PUTDJA0(SAVEQUAD2t4,SAVEINDEXl  ; 

CALL  OEFINEt ABISP-l I ; 

CALL  QU A3GE  N( LAO  1 ; 

END; 

<TF  STATEMENT)  <L ABEL  DEFINITION)  <1F  STATEMENT)  •/ 
1 

< 1 F CLAUSE)  IF  EXPRESSION)  THEN  */ 

DO; 

S A VOJ9NO*  S A VQIJONDt  J ; 


/* 


• / 


/* 

/* 


44  l 

26  75  8 
26750 
26766 
26766 
26774 
26774 
26782 
26740 
26790 
267*0 
26793 
26798 
26806 
2680c. 
26314 
26314 
26922 
26822 
26330 
26673 
26338 
26.333 
26354 
26354 
26°62 
26578 
26b86 
26986 
26886 
26394 


SYNTHE  C,1  i 
SYNTHES. 2 

SYNTursu 

SYNI H t S I * 
SYNTHESI2 
SYNTHES  1 2 
SYNTHES! 2 
SYNTHF  S 1 2 
SYNTHE  SI  2 
5YNTHFS  I 2 
SY.NTHESJ2 
SYNTHESIZ 
SYNTHES1  ’ 
SYNTHCSiZ 
2 
2 
2 
2 


SYNTH*-" S I i 
SYNThES  J< 
SYNI HE  SI i 
SYNTHESIS 


synihesi; 
SYNTHESIS 
SYNTHF  S I j 
SYNTHESl  , 


26894 

SYNTHES 

1 2 

269  02 

SYNTriES 

12 

26°02 

SYNTHES 

12 

26910 

SYNTt.ES 

17 

26910 

SY  NT  Hc  S 

12 

26915 

SYNTHES 

12 

26913 

SYNTHES 

12 

26828 

SYNTHES 

1 2 

26942 

SYNTHES 

17 

26990 

SYNTHE  S 

. 2 

27030 

SYNTHES 

U 

77070 

SYNTHES 

I 2 

27092 

SYNThES 

12 

27102 

SYNTHES 

12 

27118 

SYNTHES 

12 

2 7 1 1 rt 

SYNTHES 

12 

27134 

SYNTHES 

17 

27)66 

SYNThES 

I 2 

27173 

SYNTHES 

1 2 

27218 

SYNTHES 

I 2 

27253 

SYNTHES 

12 

27270 

SYNTHES 

1 2 

27270 

SYNTHES 

12 

272  70 

SYNTiiFS 

12 

27270 

SYNTHE S 

1 2 

27294 

SYNTHFS 

12 

27334 

SYNTHES 

! 2 

2236o 

SYNIhES 

12 

27386 

SYNTHCSI 2 

27402 

SYNTHES 

12 

27402 

SYNTHES 

12 

27402 

SYNTHES 

12 

27410 

SYNTHES 

12 

27410 

SYNTHES 

12 

27418 

SYNTHE  S 

12 

SYNTHESIS 
SYNTHESIZ 
SYNTHE  SI  2 
SYNTHESIZ 
SYNTHE S I 2 
SYNIHESI Z 
SYf'THrS  12 
SYNTHES  12 
Z 
2 
Z 
2 


*c 
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/ 

f 


^OJl 

S A .*  Jj'i  1 j.  / 

i 

9 1 t ( • j li 

281? 

CALL  OUAOGENIZqi; 

1 

2 1446 

SvNlHE  SI  ; 

2833 

END; 

1 

2/462 

S/NTur-SIZ 

2834 

/* 

<TRUE  PART?  s :=  <8ASIC  STATEMENT?  ELSE  */ 

1 

27462 

SYNTHESIZ 

2935 

00; 

1 

2 746  2 

SY.NTMES1Z 

2836 

IF  T8ASIC  = 1 THEN  00; 

1 

27470 

SYNTHES! ’ 

2837 

S AVEOUADPsNEXTOJAQ; 

1 

27486 

SYNTHES 1Z 

2838 

CALL  QUAOGENl ZO)  ; 

I 

2/4  54 

SYNTHES I L 

2839 

CALL  PUT  QUAD ( NEXT  3UA0— 1 , 1 ,3R) ; 

1 

27510 

SYNImE  i!  <■ 

2843 

CALL  PUT0UlD(NEXT(JUAD-l,2.0»  ; 

1 

27545 

SYNThesi; 

2841 

CA'.L  0°. ANCriL A 3 ( • .L*  1 1 SAVCUQI  SAVOUDND)  1 ; 

1 

2/530 

synihesiz 

2842 

CALL  PUTwUADf  SAVQ'JDISAVQU  DNC'l  >4«SAVEt  NDcX  1 ; 

J 

27628 

SYNTHESIZ 

2943 

CALL  PUT  OU  AD ( S AVOUDI SAVOUDNO ) , l , 8F ) ; 

1 

27668 

SYNTHESIZ 

2844 

SAV0UDNG=SAVQUDN0-1; 

1 

27703 

SYNTHES!/ 

2845 

CALL  OEFlNELABlSP-ll; 

1 

27770 

SYNTHESIS 

2846 

CALL  0JA0GENILA9); 

1 

27740 

SYNTHESiZ 

2847 

ENO;  * 

1 

2 7754 

SYNTHES IZ 

2849 

IF  T3AS1C  = 6 THEN  00  ; 

1 

27754 

SYNTHES  12 

284  9 

SAVE3U602  = o; 

1 

27772 

SYNTHESIZ 

2850 

!=GETOJAO(NEXTOUAO— lt41; 

1 

27773 

SYNTHESU 

2851 

CALL  PUTOUAD! SAVUJCl S AVQUONO ) ,4 , I > ; 

1 

27310 

SYnTHESI 1 

2852 

CALL  PJTOJAOt  SAVOU.D!  SAVOUONOl  ,l,BTJ ; 

1 

27350 

SYNTHESIZ 

2853 

S AV  0 J ONO=S  AVOUONO- 1 ; 

1 

27290 

SVNTnF.SU 

2854 

NEXT 2UAU=NEXT  O'JAO-1; 

1 

27902 

SYNTHES  I l 

2855 

end: 

1 

27914 

SYNTHESIZ 

2856 

end; 

1 

27914 

SYNTHESIZ 

2857 

/• 

<GHU'JP>  ::=  < GROUP  HEAD?  <EN01NG>  */ 

1 

27914 

SVN1HCSI  Z 

2858 

DO 

* 

1 

27914 

SYNTHESIZ 

2 859 

SP*  SP*? ; 

1 

27922 

SYNIHESIZ 

360 

T A5LE_LCC !SP1=L00°1NC; 

1 

27  334 

SYNTHESIZ 

M 

TA3LE_L0C1 SP-?)*LC0P_ INDEX; 

; 

27950 

SYNTHES! ? 

2882 

call  OjADGENf 400  1 ; 

i 

27970 

SYNTHESIZ 

2863 

T4SLE  10" 1 SP) =T 4BLE_LCC( SP-2  1 5 

1 

27986 

SYNTHESIZ 

2 964 

T 49L E_LCC t S P-2 l=L00P_ INDEX; 

1 

29014 

SYNTHESIZ 

2965 

CALL  OUAOGEN! ASGN)  ; 

1 

29034 

SYNTHESIZ 

2866 

SP=  SP-2; 

1 

28050 

SYNTHESIZ 

2967 

VAF !SP)=S4VLA3(SAVL4BN0l; 

1 

25  062 

SYNTHESIZ 

2368 

S AVLA  RNit*  S AVL  A&NO- 1 ; 

1 

2 9 0 36 

SYNThCS  u 

2865 

CALL  FIN0LA5; 

1 

28098 

SY..1HES  IZ 

2970 

CALL  O'JAOGFNIZOI: 

1 

23106 

SYNTHESIZ 

2871 

CALL  PJTOUAOINEXTOUAO-l.l.BR); 

1 

29122 

SYNTHESIZ 

2372 

CALL  PJT3UA0(NFXT0JA0-1,2,0>; 

1 

28158 

SYNTHESIZ 

28  73 

CALL  PUTQU.APINEXT0JAD-1,4,TABLE_LCC(SPI  1 ; 

1 

23192 

SYNIHESIZ 

2374 

CALL  BP.ANCHL  AS  ( ' .L*  1 I S AV QUO ( S A VCUONO 1 ) ; 

1 

28236 

SYNTHESIZ 

2875 

CALL  P9TOUAOI SAVOUOI SAVOUONOl |4,TA9LE_L0CISP- 

Hi; 

1 

26284 

SYNTHESIZ 

28  76 

SAVOJr>NJ=SAVOUOND-l; 

1 

28336 

SYNTHESIZ 

2677 

CALL  DEFINE LABIS P—115 

1 

28343 

SYNlHc  siz 

2873 

CALL  QJAOGENILASI; 

1 

28368 

SYNTHESIZ 

2379 

ENO; 

1 

28384 

SYNTHESIZ 

2830 

/• 

< GROUP  HE A0>  SI*  00  5 •/ 

1 

28384 

SYNTHESIZ 

2391 

t 

1 

28384 

SYNTHESIZ! 

23  3? 

/* 

CGRO'JP  HE  A J?  00  <STEP  DEFINITION?  ; */ 

1 

28.1 42 

SYNTHESIZ 

2293 

• 

1 

2 3 3 v2 

SVNTHESI r 

2394 

/* 

<GROUP  HEAD?  DO  <WH1LE  CLAUSE?  ; •/ 

I 

28400 

SYNIHESIZ 

2895 

t 

1 

2 3400 

SYNTHESIZ' 

2 336 

/• 

< GR OU ? HEAD?  0(1  <CASE  SELECTOR?  ; */ 

1 

29408 

SYNTHCSIZI 

2997 

; 

1 

28403 

SYMHE  SIZ! 

2898 

/• 

<GROJP  HE  AD>  : s*  <GROUP  H£A1>  <ST  ATEMENT  > 

*/ 

J 

28416 

SYNTHESIZ! 

2899 

• 

1 

26416 

SYN1HCS IZI 

2890 

/• 

<STEP  DEFINITION?  <VAR1 ABLE?  <REPLACE?  <EXPRESSION?  <1  TER  AT  II  N 

CONTROL?! 

28424 

SYNTHESIZ! 

2 391 

*/ 

1 

28424 

SYNTHESIZ! 

2 892 

CALL  GENLOOP; 

1 

23424 

SYNTriCSIZi 

2993 

/• 

< I TER  AT  I ON  CONTROL?  <T0?  CEXPRESSION? 

*/ 

1 

28440 

SYNTHESIZ! 

994 

00 

• 

1 

28440 

SYNl HES  IZI 

(95 

LOOPLIM-T A8LE_L0CtSPI 5 

1 

28443 

SYNTHESIZi 

2896 

FIXVI SP1*1  5 

1 

2Ri64 

SYUTMF SIZ! 

^ m 


APPENDIX  7.1  - 1*5 


28V? 

1 

C 311  HN'ZNj; 

1 

f w ' / . 

ji  . . , , 

2898 

1 

L00PINC»TA3LE_L0CISP> ; 

1 

28*8o 

SYNIHESI  Z! 

2899 

1 

ENO; 

1 

2850* 

SYNTHESIZE 

2903 

1 

/• 

ITERATION  CONTROL)  ;:=  <T0>  (EXPRESSION)  <9V>  EXPRESSION)  •/ 

1 

2853* 

SYNMCSIZf 

2901 

1 

DO 

s 

1 

2350* 

SYNTHESIZ! 

2902 

1 

t00PtIM=TA8LE_L0C(SP-21; 

1 

28512 

SYNIHESI 7 ' 

2903 

1 

L00PINC=TA8LE_L0C(SP| ; 

1 

28532 

SYNTHESIZ’ 

293* 

1 

END; 

1 

285*6 

SYNTH=S!Z: 

2905 

1 

/* 

<WHILE  CLAUSF)  ::  = (WHILE)  EXPRESSION)  • / 

1 

295*8 

SYNlHESIZ! 

2906 

1 

• 

1 

285*3 

SYNTHE  SI  Z 1 

2907 

1 

/* 

EASE  SELECTOR)  CASE  EXPRESSION)  • / 

1 

28556 

SYJTH£S!Z: 

2909 

I 

• 

1 

2 8556 

svmhesiz; 

2939 

1 

/• 

(PROCEDURE  DEFINITION)  ::=  (PROCEDURE  HEAD)  (STATEMENT 

LIST)  O OING) 

•71 

28.56* 

SYNlHESIZ 

2910 

1 

t 

1 

2856* 

SYNTHESIZ 

2911 

1 

/* 

PROCEDURE  HEAD)  S :»  <PR0CE0JRE  NAME)  ; */ 

\ 

28572 

S Y ‘ 1 7 h C S i Z 

2912 

1 

t 

1 

2o572 

SYNTHESiZ1 

2913 

1 

/• 

(PROCEDUR  E HEAD)  t:=  (PROCEDURE  NAME)  (TYPE)  ; 

*/ 

1 

23530 

SYNThESIZ 

291* 

1 

* 

1 

28580 

SYNThESI  z 

2915 

1 

/• 

< PROCEDURE  HEAD)  SS=  (PROCEDURE  NAME)  (PARAMETER 

LIST) 

; •/ 

1 

28583 

SYNThE  SI  2 

2916 

1 

• 

1 

2B5o8 

SY NTHES1Z- 

2917 

1 

/• 

<PR0CE0URE  HEAD>  <*>R0CED'JnE  NAHE>  <PAR AMETFR 

LIST) 

(TYPE)  ; */ 

1 

28596 

SYNTMESl Z 

2919 

1 

9 

1 

2859.6 

SYNlHESIZ 

2919 

1 

/• 

<PROCEDURE  HEAD)  SI=  <PR0CE0JRE  NAME)  INTERRUPT  <NUM3ER>  ; 9/ 

1 

2363* 

SYNTHES  1 I 

2920 

1 

9 

1 

2860* 

SYNTHES! Z 

2921 

1 

/• 

< PRDC ED'JRE  NAME)  = <LA8EL  DEFINITION)  PROCEDURE 

•/ 

l 

28512 

SYNTHESiZ 

2922 

1 

t 

1 

23612 

SYNTHES !Z 

2923 

1 

/* 

< PAR A. METER  LIST)  : <PARAMETER  HEAD)  <IDENT IF IER)  > 

*/ 

1 

28623 

SYNTHESIZ 

292* 

1 

• 

1 

28620 

SYNThE  SI Z 

2925 

1 

/* 

<PAR4METER  HEAD)  ::=  < */ 

1 

28623 

SYNTHESIZ 

“926 

1 

• 

1 

2 862  3 

SYNTHESIZ 

27 

1 

/* 

<PAR  A ME TE R HEAD)  SS=  <PARAMETER  HEAD)  < I DENT  IF  I ER>  , 

*/ 

1 

2 6 536 

SYNTHESIZ 

..928 

1 

* 

1 

28636 

SYNTHESIZ 

2929 

1 

/• 

< ENDI NG>  END  */ 

1 

236** 

SYNTHESIZ 

29>0 

1 

1 

286** 

SYNTHESIZ 

2931 

1 

/• 

(ENDING)  ENO  <IDENTIFI ER>  •/ 

1 

28652 

SYNTHESIZ 

2932 

1 

9 

1 

23552 

SYNTHESIZ 

2933 

! 

/* 

<ENDI NG>  <LABEL  0EFIN1TI0N)  <ENOING>  */ 

1 

23  5 63 

SYNTHESIZ 

293* 

1 

• 

( 

28660 

SYNTHE S I Z 

2935 

1 

/* 

<LA8EL  DEFINITION)  = <1DENT IFIER)  : */ 

1 

28668 

SY  NT  TESIZ 

2936 

1 

00; 

1 

28668 

SYNTHESIZ 

2937 

\ 

CALL  0EFINELA8(SP-1» ; 

1 

23676 

SYNTHESIZ 

2938 

1 

CALL  QUA0GEN1 LAB ) ; 

1 

28  o 96 

SYNTHESIZ 

2939 

1 

ENo; 

1 

28712 

SYNTHESIZ 

29  VO 

1 

/* 

(LABEL  DEFINITION)  (NUMBER)  : */ 

1 

29712 

SYNTHE  S! Z 

29*1 

1 

9 

1 

29712 

SYNTHESIZ 

29*2 

1 

/* 

<RETURN  STATEMENT)  S :=  RFT'JRN  */ 

1 

23720 

SYNTHESIZ 

29*3 

1 

* 

1 

23720 

SYNTHESIZ 

29** 

1 

/* 

<RETURN  STATEMENT)  RETURN  (EXPRESSION)  */ 

1 

28  72  8 

SYNTHESIZ 

29*5 

1 

* 

1 

29728 

SYNTHESIZ 

29*6 

1 

/• 

<CALL  STATEMENT)  s:«  CALL  <VARIA8LE>  */ 

1 

<8736 

SY.NT  TE-SIZ 

29*7 

1 

1 

1 

28736 

SYNTHESIZ 

29*8 

1 

/• 

<G0  TO  STATEMENT)  = <G0  TO)  <IOENT IFIER)  */ 

1 

237** 

SYNTHESIZ 

29*9 

1 

DO; 

1 

207** 

SYNTHESIZ 

2950 

1 

CALL  FIN0LA8; 

1 

28752 

SYNTHESIZ 

2951 

1 

CALL  QUADGEN ( BRI  ; 

1 

28760 

sy  ;t  he s i z 

2952 

I 

END; 

1 

2C776 

SYNTHESIZ 

2953 

1 

/• 

<G0  TO  STATEMENT)  <G0  TO)  <NUM8ER>  */ 

1 

28776 

SYNltiF  S I i 

295* 

1 

• 

1 

28776 

SYNTHESIZ 

2955 

1 

/* 

(GO  TO)  : GO  TO  • / 

1 

287?* 

SYNTHrSIZ 

2956 

1 

o 

c 

1 

2978* 

SYNTHESIZ 

2957 

1 

T8AS1C  • 6; 

1 

28762 

SYNTHES  W 

2953 

1 

END; 

1 

28800 

SVNTHFSi; 

2959 

1 

/• 

<G0  TO)  *:«  GOTO  • / 

1 

28800 

SYNTHESIZ 

’950 

1 

• 

1 

28600 

SYNTHESIZ 

961 

1 

/* 

DECLARATION  STATEMENT)  : DECLARE  (DECLARATION 

ELEMENT)  •/ 

1 

23308 

SYNTHESIS 

2962 

1 

1 

1 

28308 

SYNTHE  S I ■ 

t- 


2 «(>» 

1 

/* 

(utLLAHAi  i'JN  5 1 A 1 L it  ! T ) SS*  4->t*.44t.u  I J i;N  4 1.6  1 f Hti.  1 > « 

VOCLLAi'. Af  iuOi  tLt?*cM>l 

t ..  ..  . u 

5 I ■ . 1 1 ■.  3 i _ 

2964 

1 

*/ 

1 

2 8816 

SYNTHESIZ 

2«>65 

1 

• 

1 

28816 

SYNTHESIZ 

2966 

1 

/* 

DECLARATION  ElEMENT>  <TYPE  DECLARATION  */ 

I 

28324 

SYNTHESIZ 

296  r 

1 

» 

1 

28824 

SYNTHES: Z 

2963 

1 

/* 

<DECL  ARAT I ON  ELEMENT)  <IDENT1FIER>  LITERALLY  <STR1NG> 

*/  ! 

29322 

SYNTHESIZ 

2969 

1 

t 

I 

23932 

SYNTHES  I i 

2970 

1 

/• 

< DECL AR AT  I ON  ELEMENT)  = <10ENT1F1ER>  <DAT A LIST> 

*/ 

1 

29  040 

SYNTHES  1C 

2971 

1 

« 

1 

29840 

SYNTHESIZ 

2972 

1 

/* 

<0A T A L 1 ST>  <DATA  HE A0>  <CONSTANT>  1 */ 

1 

28848 

SYNTHESIZ 

2973 

1 

1 

29948 

SYNTHESIZ 

2974 

1 

/• 

<DATA  HEAD>  DATA  1 •/ 

1 

28856 

SYNTHESI  Z 

2975 

1 

• 

1 

28856 

SYNTHESIZ 

2976 

1 

/» 

<D4TA  HEA9>  = <OAT A H£AD>  <CONSTANT>  , */ 

1 

28864 

SYNTHESIZ 

2977 

1 

• 

1 

2?9o4 

SYNlHf  SI Z 

2978 

i 

/* 

<TYPE  DECLARATION)  <IOENTIFIER  SPECIF I CAT  10, M>  <TYPE> 

• / 1 

28872 

SYNTHESIZ 

2979 

1 

* 

28872 

SYNTHESIZ 

2930 

1 

/* 

<TYPE  DECLARAT1 0N>  <BOUNO  HE A0>  < NUMBERS  I <TYPE> 

*/ 

1 

28380 

SYNTHESIZ 

2941 

1 

CALL  SETDJM; 

1 

28880 

SYNTHESIZ 

2992 

1 

/* 

<TY  PE  DECLARATION)  <TYPE  DECLARATION)  <INITIAL  LIST) 

*/  1 

2 8896 

SYNTHESIZ 

2993 

1 

* 

1 

28896 

SYNTHESIZ 

2984 

1 

/• 

<TYPF > ::=  BYTE  */ 

1 

23904 

SYNTHESIZ 

2935 

J 

* 

1 

28904 

SYNTHESIZ 

29  36 

1 

/• 

< TYPE)  ADDRESS  •/ 

1 

28912 

SYNThESl Z 

2937 

1 

• 

J 

28912 

SYNTHESIZ 

2996 

1 

/* 

<TYPE > LABEL  */ 

1 

29920 

SYNTHESIZ 

2939 

1 

• 

1 

28920 

SYNTHESIZ 

7990 

1 

/* 

< BOUND  HEAD)  ::=  <IDENTI F I ER  SPECIFICATION)  1 */ 

1 

2e928 

SYNTHESIZ 

1 

1 

• 

1 

2992  3 

S Y NT  ric  i 1 Z 

»2 

1 

/* 

<I0EVT1F1E9  SPEC  IF ICATION)  s :*  <V AR I A3LE  NAME)  */ 

1 

2 3936 

SYNTHESIZ 

2993 

1 

NVARDEFrl; 

i 

28336 

SYNTHESIZ 

2994 

1 

/* 

<1  DENT  IF  I ER  SPECIFICATION)  <1  DENT  I F IER  LIST)  < VAR  I ABL  E 

NAME)  1 */  1 

28952 

synthfs i z 

2995 

1 

t 

1 

28952 

SYNTHESIZ 

2996 

1 

/• 

-{IDENTIFIER  LIST)  ::=  1 */ 

1 

28960 

SYNT  3t  SI 7 

2997 

1 

NV\RDEF=  1; 

1 

28960 

SYNTHESIZ 

2999 

1 

/* 

<1DENTIFIFR  LIST)  <IOENT  I F ( ER  LIST)  <VARIA{SLE  NAME)  , 

*/  1 

23976 

synthfsiz 

299-) 

1 

nvaroef=nvakdef*i; 

1 

28  976 

SYNTHESIZ 

3000 

1 

/* 

<VAR  I ABLE  NAME)  = <IDENTIFIER>  ♦/ 

1 

2 899a 

SYNTHESIZ 

3001 

1 

CALL  PUTITISP1; 

1 

29996 

SYNTHCS IZ 

3002 

1 

/• 

<VAR i A8L E NAME)  <RASED  VARIABLE)  IDENTIFIER) 

•/ 

1 

29020 

SYNTHESI z 

3003 

1 

? 

1 

29020 

SYNTHESIZ 

3004 

1 

/* 

<BASED  VARIABLE)  ::=  < IDENTIF IER)  BASED  •/ 

I 

29028 

SYNTHESI Z 

3005 

1 

» 

1 

29029 

SYNTHESIZ 

3005 

1 

/* 

<INITIAL  LIST)  <INITIAL  HEAD)  <CONSTANT>  I */ 

1 

29036 

SYNTHESIZ 

3007 

1 

• 

1 

29036 

SYNTHESIZ 

3 0 03 

1 

/* 

<IN1TIAL  HEAD)  INITIAL  1 •/ 

1 

2 9 044 

SYNTHESIZ 

3009 

1 

* 

1 

2 9 04* 

SYSTHF.SIZ 

3010 

1 

/♦ 

< INI T X AL  HEAO)  : <INITIAL  HEAD)  <CONSTANT>  , •/ 

1 

29052 

SYNTHES! Z 

30  7 l 

1 

• 

2«052 

SYNTHESIZ 

3012 

1 

/* 

<ASSIGNMENT>  s : s <variable>  <rfplace>  <ex?ression> 

• / 

1 

29060 

SYNTHESIZ 

3013 

1 

do; 

1 

29060 

SYNTHESIZ 

3014 

1 

CALL  OJAOGENC ASGNI ; 

1 

29065 

SYNTHESIZ 

3015 

1 

DEF! TA9LE_L0CI SP-2»)=CARD_CCUNT; 

1 

29094 

SYNTHESIZ' 

3016 

1 

END; 

1 

24112 

SYNTHESIZ1 

3017 

1 

/• 

< ASS  I GNME  NT)  <LEFT  PART)  <ASS IGNMENT)  •/ 

1 

29112 

SVM HFS  I Z. 

3016 

1 

• 

• 

29112 

SYNTHESIZ' 

3019 

1 

/• 

<RE  PL  ACE)  - */ 

1 

29120 

SYNTHES IZ. 

3020 

1 

OC; 

/•NEwOJAO •/  | 

29120 

SYNTnESlZ' 

3021 

1 

S'JBSFLAG^GcTOUADINEXTOOAO-l,!)  ; 

/•NEM3JAD*/  | 

29128 

SYNTHESIZ 

3022 

1 

IF  S(J9SFLAG=SU9S  THEN 

/•NEWCOAD*/  | 

291o0 

SYNTHESIZ! 

3023 

1 

CALL  P-JT0UADINEXT0UAD-1,1,SUBL  I; 

/•NEMO'JAD*  / 1 

29184 

SYNTHESIZ 

3024 

1 

END; 

Y*N  ExQUAD*/  | 

29212 

SYNTHESIZ! 

25 

1 

/• 

<LFFT  PART)  <VARI ABLE)  , */ 

1 

29212 

SYNTHESIZ' 

26 

1 

t 

1 

29212 

SYNTHESIZ 

3027 

1 

/• 

<EXPRESSION>  s ;*  < LOGICAL  EXPRESSION)  •/ 

1 

29220 

SYNTHESIZ 

3028 

1 

* 

! 

24220 

SYNTHESIZ 
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1 

/* 

('-•X-'Rfcssl  J.T.-  ::=•  (VARIAuLc?  :=  (LOGICAL  E XOxfc  56  i J\>  */ 

i Jv.’D- 

Si.  1'i.jh 

3030 

• 

• 

1 29-23 

SYN1HE  LI  Z 

3031 

1 

/* 

(LOGI CAL  EXRRE SSI ON?  : (LOGICAL  FACTOR?  */ 

1 29236 

SYNTHESIZ 

303? 

1 

• 

| 79236 

SY  NT  hr  S J 7 

3033 

! 

/* 

(LOGICAL  EXPRESSION?  (LOGICAL  EXPRESSION?  OR  (LOGICAL 

FACTOR?  •/ 

j 29244 

SYMIhESlZ 

3034 

i 

CALl  QUAOGFNIORI ; 

| 29244 

SYNThESIZ 

3035 

1 

/* 

<LC3I CAL  EXPRESSION?  = <L0GICAL  EXPRESSION?  XDR  <LOGICAL 

FACTOR?  •/ 

1 29263 

synthesis 

3036 

1 

* 

I 29763 

SYNTHESIS 

3037 

* 

/* 

<LOGK.iL  FACTOR?  LOGICAL  SECONDARY?  */ 

1 29276 

SYNThE  si  z 

3015 

1 

* 

1 29276 

SY  jIHESIZ 

3039 

1 

/* 

(LOGICAL  FACTOR?  ::  = (LOGICAL  FACTOR?  AND  <LOGICAL  SECONDARY?  */ 

1 252  R4 

SYNIHFSI2 

3040 

1 

CALL  OUADGENI AND) ; 

1 29264 

SYNTHE SI  2 

3041 

1 

/* 

<LOGICAL  SECONDARY?  :s*  (LOGICAL  PRIMARY?  */ 

( 29303 

SYNTHES ! 2 

30  42 

1 

5 

1 29306 

Synth ESI2 

30  43 

1 

/* 

(LOGICAL  SECONDARY?  ::  = NOT  (LOGICAL  PRIMARY?  */ 

1 29316 

SYNTHE  SI Z 

3044 

1 

1 29316 

Synth: si  2 

3 04  5 

1 

/» 

(LOGICAL  PRIMARY?  ::=  (ARITHMETIC  EXPRESSION?  •/ 

1 29324 

SVNTlcSIZ 

3046 

1 

1 

1 29324 

SYNTH6SIZ 

3047 

1 

/* 

(LOGICAL  PRIMARY?  (AR1TH3ETIC  EXPRESSION?  (RELATION? 

I 2S332 

SYNTHES 12 

304  3 

1 

(Aft 1 1 HOST IC  EXPRESSION?  */ 

1 29132 

SYNTHESI 2 

3049 

1 

on; 

1 79332 

SYNTHESI T 

3050 

1 

CALL  qjadgentrel) ; 

1 29340 

SVMSESIZ 

3051 

1 

TPASIC  = 1; 

1 29356 

SYNTHESIZ 

3052 

1 

END  ; 

1 29.304 

SYNTHE S I / 

3053 

1 

/• 

(RELATION?  = */ 

1 29364 

SYNTHESIZ 

3054 

1 

FIXVt  SP)=EO; 

| 29364 

SYNTHESI2 

3055 

1 

/* 

(RELATION?  ;:=  < */ 

| 29303 

SYNTHE  vIZ 

3056 

1 

FIXVI s?)=lt; 

1 29313 

SYNTHESI? 

3 05  7 

t 

/* 

(RELATION?  ? */ 

1 29*.!  2 

SYNThESIZ 

’053 

1 

F I X V C S° 1 =GT ; 

! 29412 

S rNTME  SI  2 

59 

j 

/* 

(RELATION?  ::=  (COMP?  *f 

1 29436 

SYNTHESI? 

- 63 

1 

t 

1 29436 

SYNTHES! 2 

3061 

1 

/• 

(COMP?  ::=  < > */ 

j 29444 

SYNTHESIS 

3062 

1 

FIX V ISP- 1) =NF ; 

l 29440 

Sv.NTrlES  1; 

3063 

! 

/* 

(COMP > : : = < - */ 

1 2947  2 

SYNTHES I ’ 

30  64 

1 

F T X VI S°— 1 1 =LE ; 

1 25472 

SYNTHES. Z 

3015 

1 

/* 

(COMP?  : : = ? = */ 

1 295CD 

SYNTHES  1 w 

3056 

1 

FJXVISP-lKGEl 

; 255C J 

SYNThESIZ 

3047 

j 

/• 

(ARITHMETIC  EXPRESSION?  (TERM?  */ 

1 25523 

SYNTHES  1 Z 

3065 

1 

• 

1 25528 

SYNTHE  SI. 

3060 

i 

/* 

(ARITHMETIC  EXPRESSION?  I:*  (ARITHMETIC  EXPRESSION?  ♦ (TERM?  */ 

I 25536 

SYNTHES t 2 

3070 

1 

CALL  3'JAOGENi  ADO!  ; 

1 25536 

SYNTHESI l 

3071 

1 

/•» 

(A. 1TH3ETIC  EXPRESSION?  : (ARITHMETIC  EXPRESSION?  - (TERM?  */ 

J 20 5oO 

SYNThESIZ 

3072 

1 

CALL  C'JAOGENl  SU?  ) T 

1 29560 

SYNTHESIZ 

3073 

i 

/* 

(ARITHMETIC  EXPRESSION?  (ARITHMETIC  EXPRESSION?  PLL'S  <TCRM>  •/ 

1 29594 

SYNTHESIZ 

3074 

r 

CALL  OUADGEN ( ADD) ; 

1 29584 

SYNTHESIZ 

3075 

i 

/• 

(ARITHMETIC  EXPRESSION?  (ARITHMETIC  EXPRESSION?  MINUS 

(TERM?  */ 

1 29C38 

SYNTHESIZ 

3076 

1 

CALL  QUADGFNI SUM J ; 

1 29608 

SYNThESIZ 

3177 

1 

/* 

(ARITHMETIC  FXPftCSSION?  - (TERM?  */ 

1 2Q632 

SYNTHESIZ 

3 07  0 

1 

DO; 

| 29432 

SYNTH.-JIZ 

30  '9 

1 

CALL  OUADGENILHIN)  J 

i 29o4C 

SYNThESIZ 

3030 

1 

CALL  M3VESTACK  ISP.SP-1I; 

I 29t5o 

SYNThESIZ 

3 0cl 

1 

END: 

| 29634 

SYNTHESIZ 

303? 

i 

/♦ 

(TER”?  ::=  (PRIMARY?  */ 

1 29634 

SYNThESIZ 

1030 

i 

« 

1 29654 

SYNTHES!  2 

3054 

1 

/* 

(TERM?  <TERM>  » (Primary?  */ 

1 29692 

SynT  hFS! Z 

3015 

1 

CALL  3UADGEN ( MUl J ; 

1 29692 

SYNThESIZ 

3l!o 

1 

/• 

(TERMS  (TERM?  / (PRIMARY?  */ 

1 29716 

SYNTHESIZ 

3007 

1 

CALL  Q’JAOGENI  01  VI ; 

1 29716 

SYNThE  SI  2 

30*3 

1 

/* 

(TERM?  ::=  (TERM?  MOO  (PRIMARY?  */ 

1 29740 

SYNTHESIZ 

3035 

1 

CALL  OUADGENIMMQDI ; 

1 2974D 

SYNTHESIZ 

3090 

1 

/• 

(PRIMARY?  (CONSTANT?  ♦/ 

I 29764 

SYNTHESIZ 

3091 

1 

CALL  finonc: 

| 29764 

SYNTHESIZ 

V092 

j 

/• 

(PRIMARY?  • 5 * . (CONSTANT?  ♦/ 

1 29730 

SYNTHESIZ 

• 93 

1 

• 

1 29780 

SYNTHESI Z 

.094 

1 

/* 

(PRIMARY?  :s=  (CONSTANT  HF»D?  (CONSTANT?  I */ 

29738 

SYNMrsi? 

'/*  (/»(/’  f>  ^ ^ I/1-  I/' 
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3095 

1 

t 

1 

2 5 Z b d 

SY.IHlSI/l 

3096 

1 

/* 

<PRIMARY>  :s*  <VARI  A6LE>  •/ 

1 

29796 

SYNThF  SI 7E 

3097 

1 

♦ 

1 

29796 

synthesize 

3099 

1 

/* 

<PRIHARY>  . <V  AR  l ABL  E>  ♦/ 

1 

29d09 

synthesize 

3099 

1 

• 

1 

29809 

synthesize 

3100 

1 

/* 

<PRI-ARV>  ( <E  X<*RE  SSI 0N>  1 */ 

1 

29312 

synthesize 

3101 

1 

CAU  movestack  ISP-I.SF-21  ; 

1 

29312 

synthesize 

3102 

1 

/* 

<CONSTANT  H6Af»  ( */ 

1 

29352 

SYNTHESI ze 

3103 

1 

t 

1 

293S2 

synthfsizf 

3103 

1 

/• 

<CONST ANT  HEADS  <CONS TANT  HEA 0>  <CONSTANT>  , 

*/ 

1 

29360 

SYNTHESI  ze 

3105 

1 

* 

1 

23  3<SQ 

SYNTHESIZE 

3106 

1 

/* 

<VARIABLE>  ::=  <IDENTIFIER>  */  . 

1 

29d68 

SYNT.HC  SIZE 

3107 

1 

CALL  F 1N0 IT { SP 1 ; 

1 

29868 

SYNTHESIZE 

3108 

1 

/# 

<VAR1 A3LE>  KSUBSCRIPT  HEA 0>  <EXPRESSIO.N>  > 

•/ 

1 

29392 

SYNTHESIZE 

3109 

1 

CALL  O'.JADGENI  SUBS!  ; 

1 

29892 

SYNTHESIZE 

3110 

1 

/* 

<S'JBSCRIPT  HEAO>  <IOENTIFIER>  I */ 

1 

29916 

SYNTHESIZE 

3111 

1 

00; 

1 

29516 

SYNTHESIZE 

3112 

1 

CALL  FIND1TISP-1I; 

1 

2 9929 

SYNTHESIZE 

3113 

1 

i-table_locisp-i»; 

1 

29999 

SYNTHESIZE 

3119 

1 

IF  S IZEI  11*1  THEN 

1 

2 5 969 

SYNTHESI ZE 

3115 

1 

oc; 

1 

29  996 

SYNTHESIZE 

3116 

l 

OUTPUT**  VARIABLE  • 1!  SYMBdt  II  • NOT  A DIMENSIONED  ARRAY*; 

1 

299B8 

SYNTHESIZE 

3117 

i 

END; 

1 

30050 

SYNTHES! ZE 

3118 

i 

END ; 

1 

30050 

SYNTHESIZE 

3119 

i 

/* 

<SUBSCr.lPT  HE AD>  SUBSCRIPT  HE AD>  <EXPRESSION> 

, */ 

1 

30050 

SYNTHESIZE 

3120 

i 

; 

1 

30050 

SYNTHESIZE 

3121 

i 

/* 

<CONSTANT>  ;:=  <STRING>  */ 

1 

30053 

SYNTHES! ZE 

3122 

i 

1 

t 

30058 

SYNTHESIZE 

312-* 

i 

/* 

<C0N3T 4NT>  <NUMBcR>  */ 

1 

30066 

synthesize 

3129 

i 

t 

1 

3 0066 

SYNTHESIZE 

312“ 

* 

/* 

<TC>  = TO  */ 

I 

30  379 

SYNTHESIZE 

?•  1 2 

/* 

< 3V>  = BY  */ 

i 

30079 

SYNTHESIZE 

312'f 

l 

• 

I 

30D74 

SYNTHESI ZE 

J 129 

i 

/* 

<khilE>  while  */ 

i 

30032 

SYNTHESIZE 

3129 

i 

i 

30032 

SYNTHESIZE 

3130 

i 

END ; 

i 

30050 

SYNTHESIZE 

3131 

1 END 

SYNTHESIZE; 

i 

30098 

SYNTHESIZE 

3132 

1 

i 

30109 

I 

3133 

1 

I 

30109 

3139 

i 

1 

30109 

3135 

i 

1 

30105 

3136 

i 

/*  SYNTACTIC  parsing  functions 

*/ 

I 

30109 

3137 

i 

] 

30109 

3133 

i 

I 

30109 

1 1 

3139 

IRIGHT.CONFLICT: 

i 

30109 

1 N 

3190 

1 

PRDCE^JP.F  (LEFT ) eiTCJ; 

I 

3010', 

t f 

3191 

! 

CPCL9BE  LEFT  FIXED; 

I 

30105 

R 1 GHT_CCNFLI C 

3192 

1 

/*  THIS  PROCEDURE  IS  TP.UE  IF  TOKEN  IS  A LEGAL 

RIGHT  CONTEXT  OF  LEFT*/ 

I 

30116 

righ  f_c One  l i c 

3193 

1 

RETURN  ("CO"  C SHL<BYTE(CULEFT»,  SHR(T0KEN,2)  I , 

SHU  TOKEN, 1» 

i 

30116 

R13HT_CCUFLK 

319*, 

1 

t **  06  ■' ) ) * C ; 

l 

30159 

RTGHT_C0NFLIC  ' 

3195 

1 

END  RIGHT_CONFLICT; 

1 

iOld6 

KIGHT_CONELU 

3196 

1 

l 

30U2 

ff 

3197 

1 

i 

3 C 1 92 

*§ ! 

3198 

1 REG 

OVER: 

l 

30192 

3199 

1 

PROCEDURE  ; 

i 

30192 

I 

3150 

1 

/*  IF  THIS  IS  THE  SECOND  SUCCESSIVE  CALL  TO  RECOVER,  DISCARD  ONE  SYMBOL 

*/i 

30152 

RECGVFR 

3151 

1 

IF  - FAIL  SOF T THEN  CALL  SCAN; 

i 

3019? 

RECOVER 

3152 

1 

FATlSDET  * FALSE; 

I 

30230 

RECOVER  M 

3153 

) 

DO  WHILE  - STOP ITITOKENI  ; 

I 

3T>?6 

RECCVSk 

3159 

1 

CALL  SCAN;  /*.T0  FINO  SOMETHING  SOLID  IN  THE 

TEXT  */ 

I 

30262 

RECOVER 

3155 

1 

1 

END; 

30266 

RECOVER 

3156 

1 

DO  WHILE  KIGHT_CONFl ICT  ( PAR SE_ST ACM SP )) ; 

i 

30279 

RECOVER 

3157 

1 

IF  SP  > 2 THEN  SP  * SP  - 1;  /■»  *N0  IN  THE  STACK  •/ 

I 

30308 

RECOVER 

3159 

ELSE  CALL  SCAN;  /•  BUT  DON'T  GO  TOO  FAR  */ 

i 

30306 

RECOVER 

31r 

1 

END; 

1 

30398 

RECOVER 

11< 

1 

OUTPUT  * • Rf  SUIT : « II  SUP.STR  I <*DI  NT  'k  , TEXT  IMIT- 

r p *hasg  i n.  niup*7i  • 

1 

30156 

Rrr».'T»< 

j 

“V. 
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31  1 

i N.J  r L w.  l;  i.  • 

i 

J 1 M fc  ’* 

f\  “ „ ■ , - 

3162  | 

3163  ISTACKING: 

1 

1 

306  36 
30636 

3166  | 

PROCEDURE  BITIll;  /*  STACKING  OECISION  FUNCTION  */ 

1 

30636 

3165  | 

CALI CO'JNT 111  * CALLCOUNTUl  ♦ IS 

1 

30636 

STACK  INC 

3166  | 

DO  FOREVFR  > /*  UNTIL  RETURN  •/ 

1 

306  76 

STACK! 

3167  | 

00  CASE  SHR(B/Tt(Cl(FARSE_STACKISPlltSHR(TOKEN»21 1 . SHL (3- TOKEN* 

I1C61C3;  1 

306  76 

STACK]  V. 

3163  1 

1 

30566 

STACK  IN' 

3169  | 

/*  CASE  0 */ 

1 

30566 

ST 4CK  I f. 

317?  | 

DOS  /♦  ILLEGAL  SY •'SOL  FAIR  •/ 

1 

30566 

STACKl N 

3171  1 

CALL  ERROR  1 'ILLEGAL  SYMBOL  PAIR:  • 11  VI PARSE_STACK I SP1 1 

M xi 1 1 I 

3 05*t  6 

si  ackii- 

3172  | 

V(TOkEN),  1); 

1 

30596 

STACKl  r: 

3173  | 

CALL  ST ACK_ DUMP; 

1 

30636 

STACkIN 

3176  | 

CALL  RECOVERS 

30  666 

STACK  IN 

3175  | 

END; 

1 

30652 

STACK  I N. 

3176  1 

1 

30662 

STACK! N 

3177  1 

* /*  CASE  1 */ 

1 

30652 

ST  AL8 IN 

3178  1 

1 

3065? 

ST  KOKIN 

3179  | 

RETURN  TRUE;  /*  STACK  TOKEN  •/ 

1 

30652 

STACK IN 

31«0  1 

1 

30670 

ST  ACK IN 

3191  | 

/•  CASE  2 */ 

1 

30670 

STACK  IN 

3182  1 

1 

30070 

STALK! N 

3193  | 

RETURN  FALSE;  /•  DON'T  STACK  IT  YET  */ 

1 

30670 

STACK!’. 

3186  | 

1 

30686 

ST  ACK  T N 

3185  1 

/*  CASE  3 */ 

1 

30686 

STACKIN 

3196  | 

1 

30686 

STACKl 

3137  | 

DO;  /*  MUST  CHECK  TRIPLES  */ 

» 

30666 

ST  ACK  I'. 

3198  | 

J * SHLI PA RSE_ STACK IS?~1I»  16*  ♦ SHL < PAR S£_S TACK < SP 1 , 81 

♦ TOKEN; 1 

30596 

STACKIN 

3189  I 

I * -I;  K = NC1TRIPLES  ♦ IS  /•  BINARY  SEARCH  OF  TRIPLES 

*/  1 

30736 

STACKl N 

3190  | 

00  while  I *1  < K ; 

1 

30756 

STAC-vl!. 

3191  | 

L * S-HRCI+K.  1); 

1 

30776 

STACK!  N 

H5?  1 

IF  C1TRIPLESIC3  > J THEN  X = L; 

1 

30792 

STACKl!. 

3193  | 

else  if  citriplesili  < j then  i « l; 

1 

30326 

S T AC  K 1 ‘ 

3196  | 

ELSE  RETURN  TRUE;  /*  IT  IS  A VALID  TRIPLE  */ 

J 

30366 

stack: n 

3195  1 

end; 

1 

30882 

STACKl N 

3196  i 

return  false; 

1 

30390 

ST  AC KIN 

3197  1 

END; 

1 

30398 

STACKl!. 

3193  1 

1 

3 089  2 

S T ACk  I \ 

3199  | 

END;  /*  OF  00  CASE  */ 

1 

30  393 

STACK  r. 

3200  | 

ENO;  /*  OF  DO  FOREVER  */ 

1 

30906 

ST  ACK  1 K 

3201  | 

END  STACKING; 

1 

30916 

STACKl:. 

3202  1 

3203  JPR_OK: 

1 

1 

30920 

30920 

3206  | 

PRGC.FOUREIPFO)  3ITI11; 

1 

30920 

3205  | 

/•  DECISION  PROCEDURE  FOR  CONTEXT  CHECK  OF  EQUAL  OR  IM3E0DE0  RIGHT 

PART  S*/l 

30720 

PR_NK 

3205  1 

DECLARE  (H,  I,  J,  PRO  1 FIXEO: 

1 

30920 

PR_GK 

3207  1 

DO  CASE  CQNT  EXT_CASE ( PRO  1 ; 

1 

30Q32 

?R_r.K 

3203  | 

1 

30962 

pr_c  k 

3209  | 

/*  CASE  0 — NO  CHECK  REQUIRED  */ 

1 

30962 

PR_OK 

3210  1 

1 

30962 

PR_OK 

3211  1 

RETURN  TRUES 

1 

30962 

pr_ok 

3212  1 

1 

30972 

PR_QK 

3213  1 

/•  CASE  l --  RIGHT  CONTEXT  CHECK  */ 

1 

30972 

PR_Ok 

3216  1 

1 

30972 

?R_0< 

3215  1 

RETURN  - RIGHT_CONFL  ICT  I HOTS  I P.1 01  1 ; 

1 

30572 

PA_OX 

3216  1 

1 

31012 

PK_CK 

3217  | 

/*  CASE  2 — LEFT  CONTEXT  CHECK  */ 

1 

31012 

PR_OK 

3219  1 

1 

31212 

PR_OK 

3219  | 

DO! 

1 

31012 

PR_OK 

3220  1 

H * HDTBIPRD1  - NT; 

1 

31020 

PR_Ok 

3221  1 

I * PARSE.STACKISP  - PRLENGTH1PR011 ; 

1 

31038 

PP._CK 

3222  1 

DO  J * LEFT_!N0EXIH-1 J TO  LEFT_INDEX( H)  - 1; 

1 

31066 

PR_QK 

3223  1 

IF  LEFT_CONTEXTI J)  - I THEN  RETURN  TRUE; 

1 

31123 

PR_QK 

3226  1 

ENOS 

1 

31160 

PR_OK 

3225  1 

RETURN  FALSE; 

1 

31168 

PR_OK 

3276  1 

FNO  S 

1 

31176 

PR_OK 
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J 02/  1 

l 

i 1 L '(! 

322S  1 

/•  CASE  3 — CHECK  TRIPLES  •/ 

1 

31176 

PR_OK 

3229  1 

1 

31176 

Pk_UK 

3230  I 

DO; 

1 

31176 

PR_0< 

3231  | 

H = HOTBC’RO)  - NT; 

1 

31184 

PR_OK 

3232  I 

I * SHL(PA*>SE_  STACK! SP  - PRLENGTH! PRO! J 

, 31  ♦ token;  1 

31202 

PR_UK 

3233  1 

DO  J « TRIPLE_IN0EX(H>1 » TO  TRI »LE_1NDEX I HI  - 1;  1 

31236 

PR_OK 

3234  | 

IF  C0NTEXT_TR1PLEI J)  - 1 THEN  RETURN 

TRUE;  1 

31300 

PR_OK 

3235  I 

END; 

I 

31334 

PR_CK 

3236  1 

RETURN  FALSE; 

1 

3 l ?42 

PR_GK 

3237  1 

END; 

31350 

PR_OK 

3238  J 

1 

31350 

PR_OK 

3236  | 

END;  /•  OF  DO  CASE  •/ 

31350 

PR_OK 

3240  | 

END  PR_OK ; 

1 

31358 

PR_CK 

3241  | 

1 

31364 

3242  1 

1 

31364 

3243  ) 

/*  * ANALYSIS  ALGORITHM 

*/  1 

313  64 

3244  1 

1 

31  364 

3245  | 

1 

31364 

3246  | 

1 

31  3e>4 

3247  iREDUCEt 

1 

31  164 

3243  l 

PROCEDURE; 

1 

31364 

3249  1 

DECLARE  (I.  J,  PSD)  FIXFO: 

1 

31364 

REDUCE 

3250  1 

/*  PACK  STACK  TO?  INTO  ONE  WORD  */ 

1 

31376 

REDUCE 

3251  1 

DO  I » SP  - 4 TO  SP  - l ; 

J 

31376 

REDUCE 

3252  1 

J » SHUJ.  8*  ♦ PARSE_ST  ACK(l)  ; 

I 

3 142  C 

REDUCE 

3253  | 

END; 

1 

31452 

REDJCF. 

3254  1 

1 

31460 

REDUCE 

3255  | 

DO  PRO  = PR_INDEXtPATSr_STAr.K(SPI-l>  TO  PR_ I NDE X t PAR S e_STACK ( SP ) > - 1;  1 

31460 

REDUCE 

3254  1 

IF  (PPMASMPRLENGTHI  PRO)  ) t J!  * PRTBtPKOJ 

then  1 

31536 

R 1 0 JC  E 

3257  | 

IF  •’R_OK (PRO)  THEN 

J 

31586 

REDUCE 

3258 

DO;  /*  AN  ALLOWED  REDUCTION  */ 

1 

31586 

REDUCE 

3259 

"P  » SP  - PRLFNGTHI PRD J ♦ 1;  MPP1  » 

HP  »•  l;  1 

31606 

REDUCE 

3263  | 

CALL  SYNTHESUcIPRDTBIPRD)  ) ; 

» 

31642 

RED JCE 

3261  | 

S?  ^ M=; 

1 

31664 

REDUCE 

3262  1 

PARSE_STACK[  SP)  = HDTB(PRD); 

I 

31672 

RED  jCt 

3263  | 

return; 

31690 

REDUCE 

3264  1 

END; 

1 

31696 

REDUCE 

3265  1 

END; 

1 

31696 

REDUCE 

3266  1 

1 

31704 

RE  VJCE 

3267  | 

/•  LOOK  UP  HAS  FAILED,  ERROR  CONDITION  >/ 

31704 

REDUCE 

3268  1 

CALL  ERROR  1 • MO  PRODUCTION  IS  AP?L 1C ABL E* , M ; 

1 

31  704 

REDUCE 

3263  | 

CALL  STACK_OUM?; 

1 

.31724 

REDUCE 

32  70  1 

FA IL  SOFT  = FALSE; 

] 

31732 

REDJCE 

3271  | 

CALL  RECOVER; 

1 

31738 

REDUCE 

32  72  | 

END  REDUCE; 

1 

31  746 

RED JCE 

32  73  | 

1 

31  752 

3274  |C0MPILATI0N_L00P: 

1 

31752 

3275  | 

PROCEDURE; 

1 

31  75? 

3276  1 

1 

3176? 

CONPlLATIDN_LOi 

3277  | 

COMPILING  « TRUE; 

t 

31  752 

COMPUATICN.Lu: 

3278  | 

DO  WHILE  COMPILING;  /*  ONCE  AROUND  FOR  EACH  PRODUCTION  (REDUCTION!  •/! 

31772 

COM?  1 LA  Ti  CN_l  0: 

3279  | 

DO  WHILE  STACKING; 

1 

31  73h 

COMP  IL  AT  IfjN_LO- 

3280  1 

sp  *•  sp  ♦ l; 

1 

31304 

CJMP1LATI  CN_L> 

3231  | 

IF  SP  * STACKS  1 2E  THEN 

1 

31016 

COMflLATI ON_LC: 

3282  | 

DC; 

1 

3184  0 

COMP  I L AT  I GN_L  %’ 

32  83  | 

CALL  ERROR  (‘STACK  OVERFLOW  ***  CHECKING  ABORTED  *** • , 2);  1 

31032 

cdm?ilatidn_lg 

3284  ) 

RETURN;  /*  THUS  ABORTING  CHECKING  */  1 

31852 

CO M P i L A T I UN_ L 01 

3285  | 

end; 

1 

3i  85  P. 

CGMP1LATJG  J_Li)v 

3286  | 

PARSE_STACK(SP>  « TOKEN; 

1 

31853 

C DMP I L AT  I CN_L  Ci 

3287  | 

VAR(SP)  - BCD; 

31870 

COMPI LATI C\_LC( 

3288  | 

FIXV(SP)  * NUMBER.VALUE; 

! i 

318S6 

C0MPILAT1  C:._LC. 

3239  | 

CALL  SCAN; 

31902 

COPPILATI CN_LOi 

3290  | 

END; 

31906 

COMPILATIGN.LCi 

3291  | 

1 

31914 

COMPI LATI CN_LC: 

3292 

CAIl  REDUCE; 

31914 

COMP  1LAT  I r.  \ l.fli 
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i l.  r.  j ll  Cu  •u'  iL  iwn  *i 

1 

3l  i>  L 

LAI  1 L ._i  Co 

1294 

ENO  CQMPILATI 0N_L00P ; 

1 

31*?20 

COMP;CATION_LCO 

1295 

1 

31V  Jo 

129* 

1 

31936 

1297 

1 

31936 

1293 

1 

319-6 

1299 

?RINT_SUMMA9Y: 

1 

31936 

1390 

PROCEDURE; 

1 

31936 

1301 

DECLARE  I FIXED: 

1 

31936 

PRI  M_SUMM’.RY 

1332 

CALL  PRINT_DA7E_AND_TME  1 • END  OF  CHECKING  DATE,  TIMEI; 

1 

31998 

PR  1 N T_SU'  M Ak  Y 

1303 

OJTPUT  « • • ; 

1 

31993 

PRI  NI_SJV1ASY 

1309 

OUTPUT  = CA9D_C0UNT  )|  • CARDS  WERE  CHECKED.*; 

1 

32016 

PFINT_SU'MARY 

3335 

IF  E RROR_CO JNT  * 0 THEN  OUTPUT  = *N0  ERRORS  WERE  DETECTED.*; 

1 

32062 

PR INT_SJUSARY 

1306 

ELSE  IF  ERRGR_COUNT  > 1 THEN 

1 

32093 

PR ! Ni_SJMMARY 

3307 

OUTPJT  = ERR 09_COU NT  I I • ERRORS  (•  11  S E VFR  E_ERkOF.S  II 

1 

32130 

PRI  ' 7_SJ‘,,*A1-Y 

3309 

• SEVERE)  WERE  DETECTED.*; 

1 

32179 

PR  I N T_S JMKAA Y 

3309 

ELSE  T F SEVFRE_ERRGRS  « 1 THEN  OUTPUT  * ‘ONE  SEVERE  ERROR  W4«  DETECTED. *J 

1 

32208 

PRI NI_  SUMMARY 

3310 

ELSE  OJTPUT  * *ONE  ERROR  WAS  DETECTED.*; 

1 

32252 

PR  I NT_SUMMAPY 

3311 

IF  PRE  VI OJS_ERR  OR  > 0 THEN 

1 

32230 

PR  IN T_ SUMMARY 

j 3312 

OUTPUT  = * TH E LAST  DETFCTED  ERROR  WAS  ON  LINE  • 1)  PREVJOIS  ERROR  11 

1 

32309 

PRIM_SUMMARY 

3313 

PERIOD; 

1 

72329 

PK 1 NT_SUV“ ARY 

3319 

IF  CONTROL IBYTEI'D*))  THEN  CALL  OUMPIT; 

1 

32  )5S 

PP.  I NT_  SUMMARY 

3315 

DOU3LE_SPACE  ; 

| 

32>e9 

print'sjmmary 

3316 

CLOCK! 71  = T1«F; 

i 

3290  a 

PRlNl^SCMMAPY 

3317 

DO  I * l TO  3;  /*  WATCH  OUT  FOR  MIDNIGHT 

i 

32939 

PR  I M.SUMMARY 

3318 

IF  CLOCK!  I)  < CLOCK!  J-ll  THFN  CLOCK!  1)  = CLOCKU)  + 8690(00; 

i 

32970 

PrIM_SUMMARY 

3319 

E*JT, 

i 

32539 

PRI  i\T_ S J'’MA KY 

3320 

CALL  PRI NT_T 1 ME  ('TOTAL  TIME  IN  CHECKER  *,  CLOCK(3)  - CLO'K(CI): 

i 

32392 

I’SI  M_  SUMMARY 

3321 

CALL  PRINT_TIME  I * SE  T U°  T I IE  *,  CLCCK!  i 1 - CLG(K!0)1; 

i 

32530 

PR  1 N 1 _ S »j  y M rv  Y 

3322 

CALL  PR  I NT_T  I Mr  (*ACtUAL  CHECKING  TIME  *,  CLOCK(2i  - CLC.'KUII; 

i 

3261  3 

print_su-;magy 

3373 

CALL  PRINT_TIMl  <*CLEA,N_UP  TIME  AT  END  *,  CL  QCKi  3 ) - CLO(Ki2)>; 

i 

32658 

pr i nt_ Summary 

3329 

IF  CIJCK12)  > CLOCK ( l ) THEN  /*  WATCH  OUT  FOR  CLOCK  BEING  Oi  F */ 

i 

32698 

PR  l -J  ^SUMMARY 

3325 

OJT°  JT  * 'CHECKING  RATE:  • 1 1 6000*C  ARO.COUNT/ I CLOCK.  ( 2 ) -CLOC  M 1 >1  f| 

i 

32  77  3 

PR ; NT_  SUMMARY 

3326 

, 

• CARDS  PER  MINUTE.*; 

i 

32  7 9h 

P2>!  NT_SUM,*ARY 

3727 

FND  PR  IN7_SUMMARY ; 

i 

32523 

PR INT_S JMMARY 

3329 

I 

32  3 J4 

3329 

MAIN_PFCCEDJRE: 

i 

32379 

3239 

PRO  CF  DUR E ; 

i 

32839 

3331 

CLOCKOI  = TIME;  /*  KEEP  TRACK  OF  TIME  IN  EXECUTION  */ 

I 

3 23  39 

MAI  N_Pi30C  EDUR  e 

3332 

CALL  INITIALISATION; 

i 

32370 

M A I N_°f<CC  E OijR E 

3 73  3 

i 

32379 

MA!N_ PROCEDURE 

3339 

CLOCK! 1)  = TIME: 

i 

3237v 

MAIN.PRUCEPURF 

3335 

i 

3 7900 

MA  i N_PPDCEOi:RC 

.3  3 36 

CALL  COM?!L4TICN_LCOP; 

i 

32900 

MA!  \_PR.Y'  E0v.->C 

3377 

i 

32r  Oj 

M A I N_  P R CC  £ 3 J >'  E 

3339 

CLOCK! 2)  = TIME; 

i 

32903 

MA I N— PROCEDUNE 

33  30 

i 

32539 

MAI  r._PRf.C£0  jRE 

3390 

/*  CLOCK !31  GETS  SET  IN  PRINT_ SUMMARY  •/ 

1 

32539 

MA  ! f _Pf’CCE Ojnc 

3391 

CALL  PPINT_SUM'A«Y; 

1 

32935 

MAI  N_PR(iC  C.DJ’-E 

3392 

f ile ( 1 ,rcd_buffi* quads; 

1 

32992 

MAI N_PI  PCEJvSt 

3393 

QUADS*  f ILF! 1,0); 

1 

32  = 69 

HA  1 N_“RCVF  i UP.' 

3399 

R C 0_  B'J  F F = 0 ; 

1 

32=9  2 

MA  1 N'_P*\OCCOJSt 

3395 

CALL  PR  I NT  SY  ‘‘B; 

1 

3299  S 

mai  n_pki;cedo-  r 

3396 

CALL  °ROCFSS_OUADS;  /*NEWQUA0*/ 

! 

33006 

MAI  V_PRGCEDcRL 

3397 

CALL  PR!NT_NFWOUADS:  /*NEWQJAD*/ 

1 

33019 

MAI N_PROC  fc  JCF-E 

3396 

1 

73022 

MAl N_aRDC  ED vS  S 

3399 

END  *UIN_PPOCEDl'RF  ; 

1 

33022 

MAIN_PkOCEOURE 

3350 

1 

33023 

3351 

1 

37028 

3352 

CALL  MAIN_  PROCEDUR  E ; 

1 

33028 

3353 

RETURN  SEVERE.ERRORS;  j 

1 

33036 

3359 

1 

33096 

It  3355 

EOF  EOF  EOF 

1 

33096 

, 

END  OF  COMPILATION  APRIL  4,  1979.  CLOCK  TIME  * 3:7:15.79. 

3355  CARDS  CONTAINING  1702  STATEMENTS  HERE  COMPILEO. 

NC  ERRORS  HERE  DETECTED. 

33054  BYTES  OF  PROGRAM,  18173  OF  DATA.  7736  OF  0£  SCR] PTDKS.  4878  C r STRJ»GS. 
TOTAL  CORE  REQUIREMENT  58841  BYTES. 

SVMSOL  TABLE  OUMP 


f 


ADD 

FIXED 

AT 

31561 10), 

DFCLARED 

ON 

LINE 

475  ANO  R ;f ERENCEO  3 TIMES. 

AOOR SS 

Bins) 

AT 

34519)  , 

DECl ARED 

ON 

LINE 

634  AND  REFERENCED  4 TIMES. 

ALLOC_R£G_DP 

LABEL 

AT 

177. 3 s 114), 

DECLARED 

ON 

LINE 

1063  AND  REFERENCED  6 TIMES. 

PARAMETER 

1 

CHARACTER 

AT 

24921 13) , 

DECLARED 

ON 

LINE 

1971  AND  REFERENCED  7 TIMES. 

ALLOC_REG_RES 

LABEL 

AT 

171541 14), 

DECLARED 

ON 

LINE 

1904  AND  REFERENCED  2 TIMES. 

PARAMETER 

1 

CHARACTER 

4T 

2484(13), 

OECLARFD 

ON 

LINE 

l9Co  AND  REFERENCED  3 TIMES. 

ALPHA 

CHARACTER 

AT 

19961 13), 

DECLARED 

ON 

LINE 

552  AND  REFERENCED  2 TIMES. 

ALPHABET 

CHARACTER 

AT 

9121131 , 

DECLARE  0 

ON 

LINE 

376  ANO  REFERENCED  2 TIMES. 

ANO 

FIXED 

AT 

32321 10) , 

DECLARED 

ON 

LINE 

494  AND  REFERENCED  l TIMES. 

A SGN 

FIXED 

AT 

3230110), 

DECLARED 

ON 

LINE 

491  AND  REFERENCED  4 TIMES. 

B_R  1 

LABEL 

AT 

6112(14), 

DECLARED 

ON 

LINE 

1135  AND  RiFERENCEC  1 T1«E$. 

B_R2 

LABEL 

AT 

72701 14) , 

DECLARED 

ON 

LINE 

106S  AND  REFERENCED  2 TIMES. 

8A_R0_READ 

LABEL 

AT 

690CI 14), 

DECLARED 

ON 

LINE 

1043  AND  REFERENCED  3 TIMES. 

BCD 

CHARACTER 

AT 

896(13), 

DECLARED 

ON 

LINE 

351  AND  REFERENCED  8 TIMES. 

BF 

FIXED 

AT 

31831 10) , 

DECLARED 

ON 

LIME 

4 B 3 AN.)  REFERENCED  3 TIMES. 

BR 

FIXED 

AT 

3130(10) , 

DECLARED 

ON 

LINE 

4 B 1 AND  RFFEPENCEP  4 TIMES. 

BR.FLAC 

BITI3) 

AT 

12(9), 

DECLARED 

ON 

LINE 

520  AND  Rci'f.RLNCED  10  TIMES. 

3RANCHI AB 

LABEL 

AT 

226421  14) , 

OFCLAREO 

ON 

LINE 

2398  AND  RI-FEPENCEC  5 TIMES. 

PARAMETER 

1 

CHARACTER 

AT 

2560(13), 

DECLARED 

ON 

LINE 

240D  AND  R:FERr"r=C  2 TI^ES. 

BT 

FIXED 

AT 

3184(10), 

DpCl ARED 

ON 

LINE 

432  AND  REFERENCED  3 TINES. 

BUF_«IC 

character 

AT 

le^BI 13), 

DECL  ARE 0 

ON 

l INL 

573  AND  RE;Er.FNCfQ  5 TIMES. 

BUFF  ER 

CHARACTER 

AT 

9l6( 131 , 

DECl ARrD 

ON 

LINE 

336  AND  RE-'ERENCED  73  TIMES. 

BZ 

FIXED 

AT 

3228 ( 10 1 , 

DECLARED 

ON 

LINE 

493  ANO  REFERENCED  > TMES. 

CALL  COUNT 

FIXED 

AT 

424(10) , 

DECLARED 

ON 

L I N’E 

421  AND  REFERENCED  6 TIMES. 

CAR7_C0UNT 

FIXFD 

AT 

260. 10) , 

DECLARED 

ON 

LINE 

387  AN"  R£FcRC,\reo  8 TIMES. 

Change 

BITI  B) 

AT 

123(9)  , 

DECLARED 

ON 

L INC 

576  AND  REFERENCED  8 TIMES. 

CHAR 

LABEL 

AT 

2 332 ( 14)  , 

DECLARED 

ON 

LINE 

672  AND  REFERENCED  2 TIMES. 

CUAPTYPE 

BIT  |B) 

AT 

3564(11), 

DECL4  .ED 

ON 

LINE 

371  ANO  RETREADED  6 TIMES. 

CLOCK 

FIXED 

AT 

5 08 ( 10), 

DECLARED 

ON 

L ! NF 

425  ANO  REFERENCED  ?0  TIMES. 

COMP  I (.AT  I ON_LOOP 

LABEL 

AT 

31  760 i 141, 

DECLARED 

ON 

l INF 

3 2 74  ANO  M -FEP  fr.'.Cc  0 1 TIMES. 

COMPIL ING 

BITISI 

AT 

393(  10)  , 

DECLARED 

ON 

LINE 

407  AND  RE  TSENCSO  4 TIMES. 

CCNL  CC 

FIXED 

AT 

3296(101, 

DECLARED 

ON 

LINE 

512  AND  REEL K I NCED  1 TIMFS. 

C'JNTFXT_CASE 

BIT(S) 

AT 

31321  lit. 

DECLARED 

ON 

LINE 

321  ANO  RE  f E P.  FACED  1 TIMFS. 

CONTEXT_TRIPlE 

FIXED 

AT 

3376(11), 

DECLARED 

ON 

LINE 

331  AND  REFEPENCrD  1 TIM^S. 

CONTROL 

BIT!  8) 

AT 

4076(11), 

OFC LADED 

ON 

LINE 

372  ANO  R fc f (-R E ACE D 8 TIMES. 

CCMVAL 

F tXEO 

AT 

3500(10), 

DECLARED 

ON 

LINE 

512  AMO  REi'FRtNCF.D  16  TIMES. 

CONVAL_INOEX 

LABEL 

AT 

11672(14), 

DECLARED 

ON 

LINE- 

1478  AND  REFERENCED  l TIMES. 

CORE 

FIXED 

AT 

3260(1 0) , 

DECLARED 

ON 

LINE 

5 D l AND  REFERENCED  0 TIMES. 

CP 

FIXED 

AT 

3552(11), 

DECLARED 

ON 

LINE 

351  AND  REFERENCED  33  TIMES. 

CJRR_MIC 

FIXED 

AT 

16(9) , 

OECLAFED 

ON 

line 

52!  ANO  REiEPENCED  63  TIMFS. 

Cl 

CHARACTER 

AT 

460! 13), 

DECLARED 

ON 

LI  NE 

150  AND  REFERENCED  2 TIMES. 

CITRIPLES 

FIXED 

AT 

135611 1), 

DEC".  AO  ED 

ON 

LINE 

261  ANO  RE  i E^CA'CED  2 TIMES. 

OEALLOC_TEMP 

LABEL 

AT 

16110114), 

DECLARED 

ON 

LINE 

13.22  AND  REFERENCED  5 TIMES. 

PARAMETER 

l 

CHARACTER 

AT 

2476( 13), 

DECLAsro 

ON 

LINE- 

1823  AND  REFERENCED  2 TIMES. 

PARAMETER 

2 

FIXED 

AT 

11561 9) , 

DECLARED 

ON 

LINE 

1 82  7 AND  REFERENCE  C 12  TIMES. 

0£ ALLOCABL 

BIT  19) 

AT 

397(9) , 

DECLARED 

ON 

LINE 

537  AND  REFtPENrED  9 TIMES. 

DEALLOCATE 

LABEL 

AT 

15032114) , 

DECLARED 

ON 

LINE 

1726  ANO  REFERENCED  2 TIMES. 

0£f 

FIXED 

AT 

1 8301 10), 

DECLARED 

DN 

LINE 

466  ANO  REFERENCED  4 TIMES. 

OEF I NrL  AB 

LABEL 

AT 

24790(14), 

DECLARED 

ON 

LINE 

25 j9  AND  REFERENCED  6 TIMES. 

PARAMETER 

1 

FIXED 

AT 

1590(B) , 

DECLARED 

ON 

LINE 

2574  AND  REFERENCED  4 TIMES. 

DIV 

: FIXED 

AT 

31651 10), 

DECLARED 

ON 

LINE 

478  AND  RErERENCED  1 TIMES. 

DIVIDE 

: FIXED 

AT 

288(10), 

DECl APED 

ON 

LINE 

396  ANO  REFERENCED  2 TIMES. 

I 
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>UL  JC 

t 1 A l 1) 

A 1 

3<-.-2l  IUI  , 

l)itl  l J 

.(  * 

1.  1 .• 

> 1 .i 

A.  t>J 

I.  L '..I-1  ItL  L U 3 1 1 <1  J . 

OO.SWITCH 

FIXED 

AT 

323*1  101 , 

DEClARFD 

ON 

LINE 

53* 

AND 

REFERENCED  0 TIMES. 

DOUBLE 

CHARACTER 

AT 

00*1131, 

DECLARED 

ON 

LINE 

355 

AND 

REFERENCED  9 TIMES. 

DUMi*  IT 

LABEL 

AT 

5250U*), 

DECLARED 

UN 

L 1NE 

910 

AND 

REFERENCED  1 TIMES. 

EOF  I UP 

F IX  EO 

AT 

2921 10), 

DECLARED 

ON 

Li  NE 

396 

AND 

REFERENCED  * TIMES. 

EO 

FIXED 

AT 

3196 ( 101 , 

declared 

ON 

L 1 N F 

*86 

AND 

REFERENCE’)  1 TINES. 

ERROR 

LABEL 

AT 

1526(1*1, 

DECLARED 

ON 

LINE 

611 

AND 

REFERENCED  6 TIMES. 

PARAMETER 

1 

CHARACTER 

AT 

21281 13), 

DECLARED 

ON 

LINE 

615 

AND 

RFfCRENCED  1 TIMES. 

PARAMETER 

2 

FIXED 

AT 

56181, 

DECLARED 

'BN 

LINE 

616 

AND 

REFERENCED  l TIMES. 

EPROP.COim 

FIXED 

AT 

26*110), 

OECLAPED 

CN 

LINF 

387 

AND 

RFCcn.PNCEO  5 TIMES. 

pail  soet 

B IT  ( 8 I 

AT 

397(10), 

DECLARED 

ON 

LINE 

*07 

AND 

REFERENCED  * TIMES. 

FINO_OP 

LABEL 

AT 

17*8R( 1*1, 

DECLARED 

ON 

LINE 

1 o->5 

AMO 

REFERENCED  l TIMES. 

PARAMETER 

I 

CHARACTER 

AT 

2*  8R 1 1 3 1 , 

DECLARED 

ON 

LINE 

19*3 

AND 

R :EE PENCE  C 1 TIMES. 

FIND_RES 

LABEL 

AT 

165*0(1*), 

DECLARED 

ON 

LINE 

1 865 

AMO 

REFERENCE G 2 TIMES. 

PARAMETER 

1 

CHARACTER 

AT 

2*8D( 13), 

DECLARED 

ON 

LINE 

186* 

AND 

R :cFRENCEC  2 TIMES. 

FINDTT 

LABEL 

AT 

256261 1*) , 

DECLARED 

ON 

LINE 

26** 

ANO 

REFERENCED  2 TIMES. 

PARAMETER 

I 

F I XED 

AT 

162*! 8)  , 

DEC! A8E0 

ON 

LINE 

26*6 

AND 

K FFR  FnCE  0 3 TIMES. 

F!ND|  AB 

LABEL 

AT 

22  )■•*  ( 1*1, 

DECLARED 

ON 

LINE 

7370 

ANO 

REFER*  NCEO  2 TIMES. 

FIND NO 

LABEL 

AT 

?se3*:i*). 

DECLARED 

ON 

LINE 

266* 

AND 

REFERENCED  2 TIMES. 

fixv 

FIXED 

AT 

62*110), 

DECLARED 

ON 

LINE 

**5 

AND 

R E r ER 2i'«Cr 0 l*  TIMES. 

GE 

FIXED 

AT 

3216(10), 

DECLARED 

ON 

LINE 

*9C 

ANO 

REFERENCED  l TIM^S. 

GENL  OOP 

LABEL 

AT 

262  OS ( 1 * ) , 

DECLARED 

ON 

LINE 

2701 

ANO 

f.:cerencfd  1 TIMES. 

GET.CARO 

LABEL 

AT 

1 C76( l*> , 

DECI  AP.FD 

ON 

LINF 

6*? 

AND 

RE;EREN'CED  * TIMES. 

GETOilf  P 

LABEL 

AT 

217S0( l*) , 

DEC! AREO 

ON 

LINE 

2 3 1* 

AMD 

REFERENCED  3 TIMES. 

PARAMETER 

1 

FI  XFD 

AT 

1*96(8) , 

DECLARED 

ON 

LINE 

2316 

ANO 

REFERENCED  2 TIMES. 

PARAMETER 

2 

FIXED 

AT 

1500(8), 

DECLARED 

0." 

LINE 

2316 

and 

REFERENCED  1 TIMES. 

GT 

F 1 XFD 

AT 

320*1 !0) , 

DECLARED 

c\ 

LINF 

*87 

AND 

P F f ERc.vCEO  2 TIMES. 

halt 

FIXED 

AT 

3176(10), 

DCCLARFQ 

ON 

l I NE 

*30 

ANO 

Rt! FRENCED  * TIMES. 

hot-* 

B I T ( 8 ) 

AT 

2*22(11), 

DECLARED 

ON 

LINE 

30  f 

AND 

RE. ERE \C  E 3 * TIMES. 

1 

FIXED 

AT 

532(10), 

DECi ARED 

ON 

LINE 

*33 

ANn 

P Ei CRENCEO  131  TI  MES 

l_FCRMAT 

CHARACTER 

PROCEDURE  AT 

1*00) 1*),  : 

DECLARED  Of 

L If 

E SOI  AND  REFERENCED 

parameter 

1 

FIXED 

AT 

*0(8)  . 

DECLARED 

ON 

LINE 

603 

AN"' 

REFERENCED  l TIUES. 

PARAMETER 

2 

FIXED 

AT 

** I 8 ) , 

DECLARED 

ON 

LINE 

603 

AND 

REFERENC'D  2 TIMES. 

IOENT 

FIXED 

AT 

?80( ID) , 

DECLARED 

ON 

LINE 

396 

AND 

RE( ERENCEO  3 TIMES. 

1 1 

FIXED 

AT 

500(9) , 

DFCLA8FD 

ON 

LINE 

5*2 

AND 

REFERENCED  96  TIMES. 

I * 1 1 T 

FIXFD 

AT 

2688(10), 

DECLARED 

Oil 

LINE 

*66 

AND 

P E rE‘< ' NCR  D 3 T 1 E S . 

INITIALIZATION 

label 

AT 

*03*11*), 

DECLARED 

ON 

L 1 NE 

b*P 

AND 

REFERENCED  1 TIMES. 

J 

FIXFD 

AT 

5361 10) , 

DECLARED 

ON 

LINE 

*33 

AND 

REFERENCED  17  TIMES. 

JJ 

FIXED 

AT 

5 0* ( ° ) » 

DECLARED 

ON 

II  or 

5*2 

AND 

REFERENCED  31  TIMES. 

K 

FIXED 

AT 

5*0(101, 

DECLARLO 

UN 

LINE 

*33 

ANO 

REFERENCES  6 TIMES. 

KK 

FIXED 

AT 

508(9) , 

DEC L APED 

ON 

LINE 

5*2 

ANO 

RE : EP E NCC 3 7 TIMES. 

L 

FIXED 

AT 

5**(  10) , 

DECLARED 

UN 

LINE 

*33 

AND 

REi  rilENCED  10  TINES. 

LAB 

f IXED 

AT 

32*8(10), 

DECLARED 

UN 

LINE 

*98 

AVI 

LC'EREC  f !)  9 TIMES. 

LAB.INOEX 

LABEL 

AT 

115661 1*), 

DECLARFD 

ON 

LINE 

1*67 

ANO 

REFERENCED  3 TIMES. 

LABOfcF 

FIXED 

AT 

1052(10), 

DECLARED 

ON 

LINE 

*5-j 

AND 

REFERENCED  5 TIMES. 

LABI  D 

CHARACTER 

AT 

12*8113), 

qfclaped 

ON 

LINE 

*5  7 

AND 

RE’ERcNCED  12  1MES. 

LASTRFF 

FIXED 

AT 

9*8 ( 10)  , 

DECLARED 

ON 

LINE 

*58 

AND 

REFERENCED  1 TIMES. 

LAVS 

FIXED 

AT 

12* ( 5 J , 

DECLARED 

ON 

LINE 

52* 

AMD 

REFERENCED  23  Tl«ES. 

LE 

FIXED 

AT 

3212) 10) , 

DECLARED 

ON 

LINE 

' t ii  y 

AND 

REFERENCED  1 TIMES. 

IFF  T_CQNTE XT 

BiTIPJ 

AT 

3212(11), 

DECLARFD 

ON 

LINE 

32  7 

An  3 

REFERENCED  1 TIMES. 

LFFT_INOFx 

BITiei 

AT 

3317(11 ), 

DECLARED 

ON 

LINE 

328 

AND 

P.  E ' E P F NC  E D 2 TIMES. 

LL 

FIXED 

AT 

512(9)  , 

DECLARED 

ON 

LINE 

5*2 

AMO 

REFERENCED  72  TIMES. 

LPC.OUAO 

F I XED 

AT 

8(9)  , 

DE  CL  AR.rD 

ON 

LINF 

519 

AND 

REFERENCED  15  TIMES. 

LOCAT 

FIXED 

AT 

1*76(10), 

DECLAPEI) 

UN 

LINE 

*66 

AND 

REFERENCED  * TIMES. 

LP?P_I NOEX 

FIXFD 

AT 

3276(10), 

DECLARED 

ON 

LINE 

505 

AND 

REFERENCED  * TIMES. 

LOOP  INC 

F IXED 

AT 

32721  10)  , 

DECLARED 

CN 

LINE 

5 0* 

ANO 

REFERENCED  3 TIMES. 

LODPlIM 

F1XF0 

AT 

32681 10) , 

DECLARED 

CN 

LIME 

503 

AND 

REFERENCED  3 TI^s. 

LT 

FIXED 

AT 

3203(10) , 

DECLARED 

ON 

LINE 

*86 

AND 

REFERENCED  2 TIMES. 

MAIN_PROCFOURE 

LABEt 

AT 

328*2( l*) , 

OECLARED 

CN 

LINE 

3329 

ANO  P*FERENCEO  1 TIMES. 

MA».GIN_CHOP 

FIXED 

AT 

3560(11), 

DECLARFD 

ON 

LIME 

361 

ANO 

REFERENCED  6 TIMES. 

MAXR  EG 

t FIXED 

AT 

*96(9)  , 

OECLARED 

ON 

LINE 

5*1 

AND 

REFERENCED  8 TIMES. 

MIC.GEN 

LABEL 

AT 

8992(1*), 

DECLARED 

ON 

LINE 

1208 

AMI 

REFERENCED  1 TIMES. 

MIC.LCC 

FIXFD 

AT 

20(9), 

DECLARED 

ON 

LINE 

522 

AND 

REEERENCEO  3 1 IMES. 

MMOD 

FIXED 

AT 

3172(10) , 

OECLARED 

d.n 

L INC 

*79 

AND 

REFERENCED  2 TIMCS. 

MO >AE  STACK 

LABEL 

AT 

26100(1*), 

OECLARED 

ON 

LINE 

2688 

AfJF 

REFERENCED  2 TIMES. 

PARAMFTFR 

l 

FIXFD 

AT 

16*8(81 , 

DECLARED 

ON 

LINE 

26  90 

ANf) 

REFERENCED  * TIMES. 

2 TIMCS 
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.‘A  FAME  UK 

2 

t i X : J 

Ai 

1662  <81 , 

•k-clare  J 

J V 

L INl 

269 J k.FCHENCsC  4 II -tS. 

MP 

F IXFO 

AT 

9321 1 0 J , 

OFCLARED 

ON 

LINE 

451  AND  RFFERENCED  4 TIMES. 

MP°1 

FIXED 

AT 

936(10), 

DtCLARFD 

p.n 

LINE 

451  AND  RFrFRFf.'CED  1 T!“ES. 

MUL 

FIXED 

AT 

3160(101, 

DECLARE  0 

ON 

LINE 

47o  AND  P.EfL'RENfFD  2 TIKES. 

MULLCC 

FIXED 

AT 

32B9I 101 , 

OF  CL APE  0 

ON 

LINE 

510  AND  REFERENCED  0 TIMES. 

nconstant 

F I X F i) 

AT 

3152(101, 

DECLARED 

ON 

LINE 

474  AND  R E T F P r NC F 0 6 Tl*US. 

NE 

FIXED 

AT 

3203(10), 

DECLARED 

O.'l 

L INC 

488  AND  REFERENCED  l TIMES. 

NF  »DUAO 

FIXED 

AT 

608(9) , 

DFCLARFO 

ON 

LINE 

547  AND  RErtRFF'CFD  39  TIMES. 

NF.(OUAD_GEN 

EASEL 

AT 

16662(16), 

DECLARED 

ON 

LINE 

2039  AND  REFERENCED  1 TIMES. 

NEK3UAD.N0 

FIXED 

AT 

0(3)  , 

DECLARED 

ON 

LINE 

543  AND  REFERENCED  7 TIMES. 

NEXT_VAR 

F IXEO 

AT 

172(9) , 

DECi ABED 

ON 

LINE 

529  AND  RCURtNCFO  2*  TI^FS. 

NEXTOUAD 

FIXED 

AT 

1168(101, 

DFCLARPD 

ON 

LINE 

462  AND  REFERENCED  28  TIMES. 

NLABEL 

FIXED 

AT 

946(101  , 

DECLAPED 

ON 

LINE 

468  AND  KEtERENCED  22  TI“FS. 

NN 

FIXED 

AT 

51619) , 

DECLARED 

ON 

LINF 

54?  AND  REFERENCED  0 TIMES. 

NO_OP 

l A3  EL 

AT 

8182(141, 

OFCLARED 

ON 

LINE 

1164  AND  RtFFRENCED  2 TIMES. 

NOT_lETTER_0fi 

_OI  GU 

BIT (S3 

AT 

0(10)  , 

DECLARED 

DN 

LINE 

372  AND  REFERENCED  4 1IM2S. 

N SYMBOL 

FIXED 

AT 

314R(  10) , 

DECLARED 

ON 

LINE 

473  AND  REFERENCED  22  TIMES. 

NJ«9ER 

FIXED 

AT 

? 34 1 10) , 

DECLARED 

ON 

LINE 

3 9o  AND  REHRFNCFD  2 TIMES. 

NjM3FR_VALUE 

FIXED 

AT 

27t,(  10  1 , 

DECLARED 

ON 

LINE 

392  AND  RETEFfcNCED  4 TIMES. 

NVAROEF 

FIXED 

AT 

3144(10), 

DECLARED 

ON 

LINF 

472  AND  REFERENCED  5 TIMES. 

OPFP 

FIXED 

A) 

2019), 

OECTarED 

ON 

LINE 

551  AND  REFERENCED  22  TIMES. 

OP  F P-  AND  l 

CHARACTER 

AT 

1R16I13), 

DECI ARED 

ON 

LINE 

525  AND  REFERENCED  23  TIMES. 

OPERAND? 

CHARACTER 

AT 

1320(13), 

DECLARED 

ON 

LINE 

525  AND  REFERENCED  17  TIMES. 

OPERA! ION 

CHARACTER 

AT 

1312113), 

DFCLARE  0 

ON 

LINE 

525  AND  REFER  FN.ED  2 TIMES. 

OPRND1 

fixed 

AT 

8(3)  , 

DECLARED 

CN 

LINE 

550  AND  REFER  FNC ED  16  TIMES, 

OPRND2 

FIXED 

AT 

12(8), 

DECI ARC  D 

ON 

LINE 

550  AND  REFERENCED  14  TlfiCS. 

OPRTOK 

F IX  ED 

AT 

4(8)  , 

DECLARED 

ON 

LINE 

550  AND  REFERENCED  14  TIMES. 

OR 

FIXED 

AT 

3236(10), 

OFCLARED 

ON 

LINE 

*95  AND  REFERENCED  2 TMcS. 

DUT.SIC 

LABEL 

AT 

6182(14), 

DECLARED 

ON 

LINE 

930  AND  PEFF.RFNCrO  21  TIDES. 

PAD 

CHARACTER 

PROCEDURE  AT 

12901  14)  , 

DECLARED  ON  LINE  592  AND  REFERENCED 

PAR  A"ST  E R 

1 

CHARACTER 

AT 

2120113) , 

DECLARED 

ON 

LINE 

594  AND  RE*  ERE NC ED  3 TIMES. 

PARAMETER 

2 

FIXED 

AT 

23(3), 

DECLARED 

ON 

LINE 

594  AND  P iFFPENCEO  2 TIMES. 

PA  DE 

CHARACTER 

AT 

9 DO ( 13)  , 

DECLARED 

ON 

LINE 

355  AND  Rvf'RENCED  1 7 1 US. 

P»RSF_STACK 

sms) 

AT 

5431  ID  I , 

DECI  ARED 

ON 

LINE 

A4?  AND  REFERENCED  1 o TI*US. 

PERIOD 

CHARACTER 

AT 

940(13#  , 

DECLARED 

ON 

LINE 

430  AND  REFERENCED  1 TIMES. 

POINT 

FIXED 

AT 

464(0) , 

DECLARED 

ON 

LINF 

540  AND  Rl FERENC  ED  17  TIMES. 

POINTER 

CHARACTER 

AT 

928(13), 

DECLARED 

ON 

LINE 

419  AND  REFERENCED  2 TIMES. 

PR_INJEX 

R1TI3I 

AT 

3433(1 1 ) , 

DECLARED 

ON 

LINF 

335  AND  P.fFEPFNCFD  2 TIMES. 

PR_OK 

LABEL 

AT 

309231 14) , 

DECLARED 

ON 

LINE 

32C2  AND  F TFER  ENCi'O  l TIMES. 

parameter 

1 

FIXED 

AT 

? ?44 ! 3 ) , 

DECLARED 

ON 

LINE 

3206  AND  F ' CERENCE  0 6 TIMFS. 

PRDTB 

sit  r ei 

AT 

2792(11), 

DECLARP  d 

ON 

LINE 

299  AND  R t F£9  t NCF  D 1 TIMES. 

PRfVMUS_ERROK 

FIXED 

AT 

272(10) , 

DECLARED 

ON 

LINE 

3 3 7 AND  REFERENCED  * TIMES. 

PRINT_OATF_ANO_T I he 

LABEL 

AT 

3783  1 14), 

DECLARED 

ON 

LINF 

827  AND  R i FEW  fcNCE!)  3 TIMES. 

“AR.V.ETER 

1 

CHAPaCTER 

AT 

2212(13), 

DECLARED 

ON 

LINE 

829  AND  RIFERENCFO  1 TIMES. 

parameter 

2 

FIXED 

AT 

212(8) , 

DECLARED 

ON 

LINF 

329  AND  RIFERENCFO  2 TIMES. 

parameter 

3 

F I XED 

AT 

216(8)  , 

DECLARED 

ON 

LINE 

fl’9  AND  REFERENCED  l TIMFS. 

PRI N T_ME  iOUADS 

LA3EL 

AT 

12683(14), 

DECLARED 

ON 

LINF 

1547  AND  I FrER  ENCF  C 1 TIMES. 

PR  IMT.S'JMmAR  Y 

1 A«fL 

AT 

3 1 944 ( 14) , 

DECLARED 

ON 

LINE 

3299  AM)  ItTEKENCEC  1 TIMES. 

PRIN T_T I HE 

LAbFc 

AT 

3478(141, 

DECLARED 

ON 

LINE 

817  AMD  REFERENCED  5 Tl-ES. 

PAPAMETER 

1 

Character 

AT 

2183(13), 

DECLARED 

ON 

LINE 

81°  AND  r.1  FFRENCFD  5 TIMES. 

pap.amftfr 

2 

FIXED 

AT 

18  31  8)  , 

OECLARED 

ON 

LINE 

819  AND  (.EFFRENCED  7 TIMES. 

PRINTSYH9 

LABEL 

AT 

20506(14), 

DECLARED 

ON 

LINE 

22 59  AND  REFERENCED  1 TIMES. 

PRLFNGTH 

R I T ( 3 ) 

AT 

3052111), 

DFCLARFO 

ON 

LINE 

315  AND  lEFCiENCFD  4 TIMES. 

PRHASX 

FIXED 

AT 

400( ID) , 

DECLARED 

ON 

LINE 

4 13  AND  '.t FERENC E 1 1 TIMES. 

PR0CE$S_3UA0S 

LABEL 

AT 

202941 14) , 

DECLARED 

ON 

LINE 

2241  AND  V'FeRENCSC  1 TIMES. 

PRT3 

FIXED 

AT 

2272 (11), 

DECI AKED 

ON 

LINE 

290  AND  RIFPPEMCED  l TIMES. 

PUT.MIC 

LABFL 

AT 

5848(14) , 

DECLARED 

ON 

LINF 

958  ANO  RFrERENCEO  7 TIMES. 

PARAMETER 

1 

F IX  CD 

AT 

500(RJ , 

0ECLARF0 

DN 

LINF 

964  ANO  REFERENCED  3 TIMES. 

PUT  NEWO'JAD 

LABEL 

AT 

11354(14), 

DECLAPED 

ON 

LINE 

1446  AND  REFERENCED  13  TIMES 

PUTIT 

LABEL 

AT 

25?4e< 14) , 

DECLARED 

ON 

LINF 

26  13  AND  REFE  PENCE  C l TIMES. 

PARAMETER 

X 

FIXFD 

AT 

1605(8) , 

DECLARED 

ON 

LINF 

2615  AND  REFER  FNCE  C 4 TIMES. 

PUTO'JAD 

LABEL 

AT 

21955(14), 

DECLARED 

ON 

L INF 

23’D  AND  REFERENCED  18  TIMES 

PARAMETER 

1 

FIXED 

AT 

1506(8) , 

DECLARED 

ON 

LINE 

2332  AND  RFFERENCED  2 TIMES. 

PARAMETER 

2 

FIXED 

AT 

1512(8) , 

DECLARED 

ON 

LINE 

2332  AND  REFERENCED  1 TIMES. 

parameter 

3 

FIXED 

AT 

1516(A) , 

DECLARED 

ON 

LINE 

2332  AND  REFERENCED  l TIMES. 

PUTTCMP 

IABFI 

AT 

22)34(141, 

Ofi'l  ARFD 

ON 

1 INF 

2149  AND  R | FT  l*FMCF  f)  5 TIMFS. 

L I 
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QUADGEN 

LABEL 

AT 

22306(14), 

DECLARED 

ON 

LINE 

2415  4\'D  REFERENCED  29  TI«FS 

PARAMETER 

1 

FIXED 

AT 

1552(e) , 

DECLARE  0 

ON 

LINT 

2421  AND  REFERENCE C 12  7 I ME S 

QUADS 

FIXED 

AT 

37041 101, 

DECLARED 

ON 

LINE 

516  AND  RENRENCEO  18  TIMES. 

RCD.BUFF 

FIXED 

AT 

0(9), 

DECLARED 

ON 

LINE 

517  AND  PE:i:kENCCD  18  TIMES. 

RCD_N°. 

FIXED 

AT 

4(9)  , 

DECLARED 

ON 

LINE 

519  AND  R E * FR  ENCEO  11  TIMES. 

m 

BIT  10) 

AT 

336(9), 

DECLARED 

ON 

LINE 

532  AND  REFERENCED  10  llUt'S. 

READOJAD 

LABEL 

AT 

11794(14), 

OECl  AP.E  D 

ON 

LINE 

14e9  AND  REFERENCED  1 TIMES. 

PARAMETER 

1 

FI  XEO 

AT 

336(8) , 

DECLARED 

ON 

LINE 

1493  AND  RFFEPENCFD  4 TIMtS. 

RECOVER 

LABEL 

AT 

30200 ( 14) , 

DECLARED 

ON 

LINE 

3146  AND  RcFERF-xEC  2 TIMES. 

REDUCE 

LABEL 

AT 

31372(141, 

OECLARCO 

ON 

L INE 

32‘7  AND  REFERENCED  1 TIMES. 

REFNO 

FIXED 

AT 

520(9)  , 

DECLARED 

ON 

LINE 

542  AND  REFERENCED  9 TIMES. 

REFRENCE 

FIXED 

AT 

40019)  , 

DFCLAREI) 

ON 

LINE 

338  AND  REFERENCED  5 TIMES. 

REGNO 

FIXED 

AT 

530(9)  , 

DECLARED 

ON 

LINE 

546  AND  REFERENCED  12  TIMES. 

REL 

FIXED 

AT 

3192(10), 

DECLARED 

ON 

LINE 

4e4  AND  R if  EP-ENCTO  4 TIMES. 

RESERVFD.LIMIT 

FIXED 

AT 

35561 11) , 

DECLARED 

ON 

LINE 

361  AND  R-IEKEFCED  3 TIMES. 

RESULT 

- • 

CHARACTER 

AT 

IR24I13), 

DFCLARED 

ON 

l INE 

525  AND  REFERENCED  21  TIMES. 

RIGH T_CONFLl CT 

LABEL 

AT 

30112(14), 

DECLARED 

ON 

LINE 

3139  AND  <t  FFR.  FNCED  2 TIMES. 

PARAMETER 

1 

FIXED 

AT 

2192(e), 

DECLARED 

ON 

LINE 

3141  AND  (fEERENCEO  1 TIMES. 

RS'-T 

FIXED 

AT 

16(8), 

OECLAREO 

ON 

LINE 

550  AND  REFERENCED  14  TIMES. 

RT  EM  P_M I N US_ 1 

LABEL 

AT 

3704(14), 

DECLARED 

ON 

LINE 

1186  AND  REFER  ENCE  C 1 TIMES. 

RTE  M P_SH I F T 

LABEL 

AT 

7928(14) , 

DECLARED 

ON 

LINE 

1119  ANu  FIFfRRNCEC  2 TIMES. 

R T E MP_UNI BUS 

LABEL 

AT 

68761 14) , 

DECLARED 

ON 

LINE 

1031  AND  REFERENCED  2 TIMES. 

rtfmp_a 

LABEL 

AT 

73331 141 , 

DECLARED 

ON 

LINE 

1073  AND  REFERENCED  1 TIMES. 

RD_PLUS?_REAO 

LABEL 

AT 

6414(14) , 

DECLARED 

ON 

LINE 

994  AND  REFERENCED  3 TIMES. 

R2  SHIFT 

LABEL 

AT 

82221 14) , 

DECLARE  1) 

ON 

LINE 

1144  AND  REFEREXCFD  1 TIMES. 

R 3_D 

LAPEL 

AT 

71201 14) , 

DECLARED 

ON 

LINE 

1D56  AND  REFFtfACEC  3 TIMES. 

R3_R3_PLUS_B 

LABEL 

AT 

B524( 14) , 

DECLARED 

ON 

LINE 

1171  AND  F.  t FER ENCE  0 1 TIMES. 

R3_UNI3US 

LABEL 

AT 

6726 ( 14), 

DECLARED 

ON 

LINE 

1019  AND  REFERENCED  3 TIMES. 

R3_0 

LABEL 

AT 

7716(14), 

DECLARED 

ON 

LINE 

1103  AND  REFERENCED  1 TIMES. 

S 

CHARACTER 

•AT 

924(13) , 

DECLARED 

CN 

LINE 

409  AND  PEI  EREifCf.D  12  TIMES. 

SAVE  I NOE X 

FIXED 

AT 

3264(10), 

DECLARED 

ON 

LINE 

50?  AND  R -f  FRF,nc.EO  4 TIMES. 

SAVE  LAB 

CHARACTER 

AT 

1800(131  ,. 

DECLARED 

ON 

LINE 

507  AND  RIFERENCEO  0 TIMES. 

SAVELCC 

FIXFD 

AT 

3230(1  0).,  '• 

DECLARED 

ON 

LINE 

506  AND  RIFERENCEO  1 TIMES. 

SAVFDJAD 

FIXED 

AT 

1160(101, 

DECLARED 

ON 

LINE 

460  AND  R{ ClREHCCD  0 TIMES. 

SAVECJAD2 

FIXED 

AT 

11641 10) , 

DECLARED 

CN 

LINE 

461  AND  RfFERENCED  5 TIMES. 

SAVE  RCF 

FIXFD 

AT 

9 40 f 10) , 

DECLARED 

ON 

LINE 

453  AND  P.l  FERENCED  0 TIMES. 

SAVE  VAR 

CHARACTER 

AT 

1804(13), 

DECLARED 

ON 

LINE 

505  AND  R1 FERENCED  1 TIMES. 

SAVE  A3 

CHARACTER 

AT 

1756(13), 

DECLARED 

ON 

LINE 

409  AND  R1 FERENCED  2 T1«ES. 

SAVL  A8N-D 

FIXED 

AT 

3140110), 

DECLARED 

ON 

LINE 

470  AND  RIFERENCEO  6 TIMFS. 

SAV3UD 

FIXED 

AT 

30921  10) , 

DECLARED 

ON 

LINE 

467  AND  RIFERENCEO  14  TIMES. 

savouond 

FI  XEO 

AT 

3136(10). 

DECLARED 

ON 

LINE 

465  AND  Rl FERENCED  26  TIMES. 

SCAN 

LABEL 

AT 

23801 14) , 

DECLARED 

ON 

l INE 

631  AND  RIFERENCEO  5 TIMES. 

SET_B1 T 

LAB^L 

AT 

5664(14) . 

OECLAREO 

ON 

LINE 

937  AND  Rl  FFR C NCED  183  TIMES 

PARAMETER 

1 

FIXED 

AT 

392(B)  , 

DECLARED 

ON 

L INE 

941  AND  M FERENCED  1 Tl-eS. 

SET.FIELO 

LABFL 

AT 

56981 14) , 

DECLARED 

ON 

LINE 

944  AND  P.l  FERcN'-ED  22  TIMES. 

PARAMETER 

1 

FIXED 

AT 

‘00(31 , 

DECLARED 

ON 

LINF 

948  AND  i',1  Fc  R E NC  F D 3 TIMES. 

parameter 

2 

FIXFD 

AT 

404(3) , 

DECLARED 

ON 

LINE 

949  AND  Rl FERENCED  1 TIMES. 

PARAMETER 

? 

FIXED 

AT 

403(3), 

OECLAREO 

ON 

LINE 

946  AND  iEFFRENCED  2 TIMES. 

SETT  I M 

LABEL 

AT 

251221  14)  , 

DECLARED 

ON 

LINE 

260D  AND  REFERENCED  1 TIMES. 

SE  VERE_ERROR  S 

FIXED 

AT 

2691  10), 

DECLARED 

ON 

LINE 

33  7 AND  .E CER ENCE  D 6 TIMES. 

SIZE 

F IXEO 

AT 

2 2 94 ( 10) , 

OECLAPED 

CN 

LINE 

466  AND  CEFERcNCTD  5 TI*ES. 

SORT 

LABEL 

AT 

141741  14) , 

DECLARED 

ON 

LINE 

1667  AND  REFERENCED  2 TMES. 

PARAMETER 

1 

FIXED 

AT 

1040(31  , 

OECLAREO 

ON 

L INE 

1672  AND  REFERENCED  2 TIMES. 

PARAMETER 

2 

3 ITT  8 1 

AT 

1036(3)  , 

DECLARED 

ON 

LINE 

1671  AND  REFERENCED  2 TIMFS. 

SORTN'JM 

FIXED 

AT 

352(9)  , 

DECLARED 

ON 

LINE 

565  AND  REFERENCED  14  TIMES. 

SORTREF 

FIXED 

AT 

524(9)  , 

DECLARED 

ON 

LINE 

544  AND  .EFCRENCED  14  IIMcS. 

SR 

FIXED 

AT 

929(101  , 

DECLARED 

ON 

LINE 

451  AND  RCFCRENCFO  117  111ES 

ST  ACK_D'JMP 

S label 

AT 

3450(14), 

DECLARED 

ON 

LINE 

921  AND  .t'FFRENCED  3 TIMES. 

STACKING 

label 

AT 

30442 ( 14), 

DECLARED 

ON 

LINE 

3163  AND  REFERENCED  1 TIMES. 

STATUS 

B1TI8I 

AT 

337(91 , 

DFCLARED 

ON 

LINE 

533  AND  (EFERENCED  11  TIMES. 

STOPIT 

BIT  18) 

AT 

298(10), 

DELLARED 

PN 

LINE 

407  AND  tEFEPENCEC  3 TIMES. 

STOREOUAO 

LABEL 

AT 

21576(14), 

OECLAPED 

ON 

LINE 

2295  AND  REFERENCED  1 TIMES. 

PARAMETER 

1 S FIXED 

AT 

1472(8) , 

OECLAREO 

ON 

L INr 

2297  ANO  REFERFNCFC  2 TIMES. 

PARAMETER 

2 

FIXFD 

AT 

1476(8) , 

OECLAREO 

ON 

LINE 

2297  AND  REFERENCED  1 TIMES. 

PARAMETER 

I 

FIXED 

AT 

1480(8) , 

DECLARED 

ON 

LINE 

2297  AND  REFFRFNCFC  l TIMES. 
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PARAMETER  4 

FIXED 

A 1 

14  >4(3) , 

DtClAr.j.  i) 

'Jx 

LINE 

l >.  •> 

AN:)  Rlft  - L (LEL 

1 ) 1 41  5. 

PARAMETER  5 S FIXED 

AT 

1498(8) , 

OECIARE 0 

ON 

LINE 

22  5) 

AND  REFERENCE C 

I TIMES. 

SUB 

FIXFD 

AT 

3164(101. 

OECLARED 

0!i( 

LIME 

477 

AND 

(EFERENCED 

2 T1 JES» 

SU3L  : FIXED 

AT 

3?5?  C 1 0» , 

declared 

ON 

LINE 

499 

AND 

('FEREMCCD 

2 TIMES. 

SU3S 

FIXED 

AT 

32241 10), 

DECLARED 

ON 

LINE 

492 

AND 

< -FERCNCCD 

5 TIMES. 

SUBSFLAO 

FIXED 

AT 

354(61 , 

DECLARED 

ON 

LINE 

535 

AND 

< JFt-.PENCFD 

4 TIMES. 

SYMB  S CHAkACTER 

AT 

1352113), 

DECLAPFO 

UN 

LIME 

465 

AND 

.••FFPFNCFO 

23  TIMES. 

ST M3_ INDEX  : LAB  El 

AT 

11460(14), 

.DECIARFO 

ON 

LINE 

145E 

AND  '(EFERENCFC 

4 TIMES. 

SYNTHESIZE  : LABEL 

AT 

266561  14), 

DECLARED 

ON 

LINE 

2732  AND  /.  E E E R F \C  £ D 

1 TIMES. 

PARAMETER  1 : FIXED 

AT 

166418) , 

DECLAkCD 

ON 

LINE 

2734 

AND  F.IFEPCNCtr 

1 TIMES. 

table_loc 

FIXED 

AT 

1172(10), 

DECLARED 

ON 

IJNE 

46.3 

AND 

Rt)  ERE.vCED 

52  T I )ES. 

TBAS1C 

FIXED 

AT 

1156(10), 

DECLARED 

ON 

l INE 

459 

AMO 

RE<  ERri)CED 

10  TIMES. 

TEMP 

FIXED 

AT 

43219) , 

DECLARED 

ON 

LINE 

539 

AND 

REI EREMCED 

1C  TIMES. 

TEM»_CHAR 

CHARACTER 

AT 

1992(131, 

DECLARED 

CM 

LINE 

549 

AND 

REI FRENCED 

10  TUPS. 

TEXT 

CHARACTER 

AT 

920113), 

DECLARED 

ON 

LINE 

336 

AND 

RE) FRENCEO 

15  TIMES. 

TEXT_L I MIT 

FIXED 

AT 

255(10), 

DcCL  ARE  0 

ON 

LINE 

387 

AND 

RE) EKENClO 

12  TIMES. 

T30T0 

FIXED 

AT 

3256(10) , 

DECLARED 

ON 

LINE 

530 

AND 

R Cl  CR  ENDED 

0 TIMES. 

TfiKFN 

FIXED 

AT 

3543(13), 

DECLARED 

ON 

LINE 

351 

AND 

REI EAFNCEO 

14  TIMES. 

TRIPLE.INOEX 

3 I T I 9 ) 

AT 

3330(1 1 ; 

DECLARED 

ON 

UNR 

332 

AND 

MCI  t i*. E \’C  1 0 

2 TIMES. 

TX 

B I T ( 8 > 

AT 

38201 11) , 

DECLARED 

ON 

LINE 

371 

AND 

REI ERE  NEED 

3 TIMES. 

UM1 N 

FIXED 

AT 

3240(10), 

DECLARED 

ON 

L I NE 

496 

AND 

REI LkcNCEO 

2 TIMFS. 

V 

character 

AT 

24(13) , 

DECLARED 

ON 

LINE 

126 

AND 

REf  CR  PRICED 

9 Tl-rS. 

V.INDFX 

BIT(fl) 

AT 

1 349(11), 

DECLARED 

ON 

LINE 

143 

AND 

P c RpR  ENDED 

4 TIMES. 

VAR 

CHARACTER 

AT 

944(13) , 

DECLARED 

ON 

LINE 

444 

AND 

REFERENCED 

20  TIMES. 

VAR  I BLS 

CHARACTER 

AT 

1023(13) , 

DECLARED 

ON 

LINE 

57  7 

AND 

RE'EKEnCEJ 

10  TIMES. 

VARNUM 

FIXED 

AT 

34D( 9) , 

DECLARED 

ON 

LINE 

536 

AND 

R!  1 E PENCE  0 

22  TIMES. 

MRITE_RE5S 

LABEL 

AT 

133761 141  , 

DECLARED 

ON 

LINE 

2015 

A NO 

( F f ERENCEO 

4 TIMES. 

Xt 

CHARACTER 

AT 

932(13), 

DECLARED 

ON 

LINE 

429 

AND 

Rf 1 ERENCED 

3 TIMES. 

X4 

CHARACTER 

AT 

936(13), 

DECLARED 

ON 

LINE 

429 

AND 

RI.FEKENCED 

1 TIMES. 

X70 

CHARACTER 

AT 

908( 13) , 

DECLARED 

DM 

LINE 

357 

ANO 

R: FERENCEO 

3 TIMES. 

ZO 

FIXED 

AT 

3244(10), 

DECLARED 

ON 

LINE 

497 

AND 

REFERENCED 

5 TIMES. 
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MACRO  DEFINITIONS: 


NT 

LITERALLY. 

51 

NST 

LITERALLY 

109 

TRUf 

LITERALLY 

1 

false 

literally 

0 

LABELS 

LITERALLY 

25 

DX_SI»E 

literally 

500 

FOREVER 

LITERALLY 

WHILE  l 

SYMBOL  S 

LITERALLY 

100 

NAX0UA9S 

L ITERALLY 

220 

STACKSIZE 

literally 

75 

CONSTANTS 

LITERALLY 

50 

oisk words 

*•  LITERALLY 

900 

NCITRI PLES 

LITERALLY 

220 

EJECT.PAGE 

LITERALLY 

OUTPUT  III  - PAGE 

DDUBl E_SP ACE 

LITER4LLY 

OUT PUT <11  * D0U9LE 

I0C0-RARES 

* 

343105 

SYMBOL  TABLE  SIZE 

9 

311 

MACRO  DEFINITIONS 

9 

15 

STACKING  DECISIONS* 

57026 

SCAN 

S 

11603 

EMITRR 

m 

697 

EMITRX 

m 

852C 

FORCE  ACCUMULATOR 

m 

3475 

ARIThEWIT 

m 

541 

GFNSTORE 

m 

609 

FIXBF*. 

w 

467 

F I <0«TAW0P0 

9 

12 

FIXCHW 

9 

844 

GETDATA 

9 

6 

GrTCCOE 

9 

4 

FINOAD.ORESS 

m 

1033 

SHORTCFI X 

9 

838 

LONGCFIX 

9 

6 

short  of ix 

9 

9 

LONGOF IX 

M 

3 

FREE  STRING  AREA 

m 

92014 

REGISTER  VALUES  IRELATIVE  TO  Rll): 

R A * 0 

R 5 ■ 0 

R6  * 0 

R7  * 9 

R8  ■ 15952 

R9  « 1 16 AO 

RD  * 4332 

Rll  * 0 

R 1 2 * 0 

R 1 3 » 19169 

instruction  FREQUENCIES: 

B»LR  92 
6CTR  3 

BCR  133 

LRR  1 

LTR  14 
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tip 

8 

XR 

16 

LR 

111 

CR 

3 

AR 

30 

SR 

257 

OR 

2 

ALR 

4 

SLR 

4 

STH 

3 

LA 

73  7 

STC 

76 

IC 

82 

EX 

18 

BAL 

636 

BC 

733 

IH 

6 

ST 

1605 

N 

25 

0 

1 

X 

5 

L 

2602 

C 

209 

A 

209 

S 

148 

K 

6 

D 

24 

AL 

2 

SRL 

31 

SLL 

449 

SRA 

16 

SRDA 

25 

STM 

85 

TM 

7 

01 

1 

LM 

89 

TOTAL  TIM?  IN  COMPILES  0:6:26.59. 

SET  tj»  TIME  0:0:5.93. 

ACTUAL  COMPILATION  TIME  0:5:52.10. 

POST-COMPILATION  TIME  0:0:20.65. 

COMPILATION  RATE:  571  CAROS  PER  MINUTE. 
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PLM  REPRESENTATION  OF  TEST  PROGRAMS 


1 I F iMSiPKOCEDUBt l 

2 I PtCI  AHt  (F)b.HHl  ,FJB2,1  ,N)  BYTE} 


j I Fint  * 0} 

• I F|*2  * l; 

51  N * 100} 

6 1 00  ( * | |ll  N; 

7 1 F IB  a FIB)  1 

HI  F 161  a flili} 

9 1 — F IH2  a Fl«  ♦ FIH1I 

10  I INOt 

11  I ENOS 

.12  lt"F  EOF  f nF 

(a)  FIBONACCI  SERIES 


1 1 OPT 

! I 


flm:Pfm)cedupF! 

“ l>E  Cl  ABF  ll.N.GRTST  F.LNNl  , iNOt  * > BYTE! 
OFCIAHF  AHPAYllO)  BY  It  1 
Mai  01 

OPTST  f IHNlaAMRAYl 1 ) s 
| Nl>t  **  I I 

00  | a?  TO  M}  _ _ 


10  I 

11  I 
1?  I 

13  IFOF 


LAM  IF  NO; 
l HD  5 


IF  6*TST_±LMNT  > AMMAY(I)  Tm|N  60  ’0  LAMII 
MlTsT  F.l**NlaAKPAYC  1 1 1 
I NOl  * A I } 


GREATEST  ELEMENT 


1 I PWIMF tPPOCEOUPF I 

2 I otriAPf  (i,j 


OtrlAPf  (I.J.M  HYICl 
ntCLAPF  A I ?5o ) BY  1 F 5 
00  Isl  TO  256; 

A f 1 ) a | 1 


10  I 

11  I 

12  I 

13  I 
l«  I 

IS  I EOF 


Enot 

1*2  1'J  2St>; 

IF  A ( 1 I an  THFN  CO  10  LAB  1 1 
*«?•! 1 

1)0  Jan  TO  ?S6  BY  I| 
t(J)*0; 

ENl>; 

LABI lEND; 


(c)  PRIME  IDENTIFIER 


1 ISHHllPBlltFDDMF  ! 

2 I MC.IANF  AKMAYI10I  BY  It  j 

3 r ntr.iAKF.  (i,j,a,tfnp,s».|TCb)  hyth 

a I Shi  ICO  a 0; 

5 I KSO  5 

6 I L AH? I K a K ♦ t; 

7 | DO  TaK  III  «| 
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(b)  GREATEST  ELEMENT  - 2 
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7-5  (a)  R.  QUAD  PROCESSOR  PROCEDURES 


The  R Quad  Processor  has  7 procedures.  The  calling  sequence  is  shown 
below.  Following  this  is  a brief  description  of  each  procedure. 


Procedure 

Name 


Called 

By 


ALLOC_REG_OP  ASGN  QUAD 

Funct.  QUADS 
SUBS  QUAD 
SUBL  QUAD 
BT/BF  QUADS 

ALLOC_REG_RES  Funct.  QUADS 

SUBS  QUAD 

SUBL  QUAD 

DEALLOCATE  ALLOC_REG_OP 
ALLOC_REG_RES 

DEALLOCJTEMP  ASGN  QUAD 

Funct  QUADS 
SUBS  QUAD 
SUBL  QUAD 
BT/BF  QUADS 


Parameter  Return 


Variable  Register  Number 


Variable  Register  Number 


Register  Number 


Variable  Register  Number 

Register  Number 


FIND  OP 


FIND  RES 


WRITE  REG 


Variable 


Variable 


Register  Number 
Register  Number 


ALLOC_REG_OP 

ALLO  C_REG_RES 
ASGN_QUAD 

BR  QUAD 
LAB  QUAD 
BT/BF  QUAD 


The  procedure  descriptions  are  provided  below. 

Alloc_Reg_OP:  Procedure  (Variable) 

1.  Reg=Find_OP  (Variable) 

(Value  of  Reg  is  one  of  the  following.' 

a.  register  number  which  the  variable  is  already  assigned 
to. 

b.  register  number  which  the  variable  is  to  be  assigned  to 

c.  -1) 

2.  If  Reg=-1,  then  Reg= Deallocate. 

(routine  Deallocate  returns  a register  number  to  be  allocated 
to  the  variable,  see  explanation  in  Deallocate  routine) 
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3.  If  RDFLAG  is  set  to  'NO' , then  go  to  8 

(RDFLAG  is  set  by  FindjOP  routine  to  indicate  if  the  variable 
is  already  assigned  to  the  registe-f) 

Else,  go  to  U. 

U.  Put  the  variable  in  the  list  of  variables  assigned  to  Reg  and  set 
its  STATUS  entry  to  'ALLOCATED'  and  CHANGE  entry  to  'NO',  set  other 
entries  accordingly,  go  to  5. 

5.  If  the  quad  under  process  is  a SUBS  or  SUBL  quad,  then  go  to  6. 
Else,  go  to  7* 

6.  Generate  a RDAD  register  quad  and  go  to  8. 

Quad  sets  Reg  to  address  of  the  variable 

7.  Generate  a RD  register  quad,  and  go  to  8 

Reads  value  of  the  variable  into  Reg. 

8.  RETURN  with  "e  of  Reg. 


Alloc_Reg_Res : Procedure  (Variable) 

1.  Reg=Find_Res( Variable) 

(Value  of  Reg  is  one  of  the  following 

a.  register  number  which  the  variable  is  already  assigned  to. 

b.  register  number  which  the  variable  is  to  be  assigned  to. 

c.  -1) 

2.  If  Reg=  -1,  then  Reg= Deallocate. 

(routine  Deallocate  returns  a register  number  to  be  allocated 
to  the  variable,  see  explanation  on  Deallocate  routine) 

3.  If  RDFLAG  is  set  to  'NO'  then  go  to  5 

(RDFLAG  is  set  by  Find_Res  routine  to  indicate  if  the  variable 
is  already  assigned  to  the  register) 

Else,  go  to  U. 

U.  Put  the  variable  in  the  list  of  variables  assigned  to  Reg,  set 
its  STATUS  entry  to  'ALLOCATED'  and  CHANGE  entry  to  "YES",  and 
set  other  entries  accordingly. 

5.  RETURN  with  value  of  Reg. 
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Deallocate : Procedure 

(The  routine  will  he  called  only  in  the  case  no  register  is  available 
to  he  allocated  to  a variable. 

The  routine  searches  register  table  and  selects  a register  on  the 
following  basis,  .notice  that  the  given  basis  are  in  the  order  of 
importance  attached  to  them  in  coding  the  routine. 

1.  Least  number  of  temporary  variables  are  assigned  to  the  selected 
register. 

2.  Least  number  of  variables  are  assigned  to  the  selected  register. 

3*  The  longest  time  after  the  last  reference  to  the  selected  register. 
After  selection  of  the  register  following  steps  are  re-executed) 

1.  Search  in  the  list  of  variables  assigned  to  the  register  and 
generate  a WT  register  quad  for  those  variables  whose  CHANGE 
entry  is  set  to  'YES'. 

(the  generated  register  quad  writes 
contents  of  Reg  into  memory  location  Var) 

2.  RETURN  with  value  of  register  number. 


Dealloc_Temp:  Procedure  (Variable,  Register) 

(if  the  given  variable  is  a temporary  variable,  then  it  will  be 
deleted  from  list  of  variables  assigned  to  the  register) 

1.  If  the  given  variable  is  a temporary  variable,  then  go  to  2. 
Else,  RETURN. 

2.  Delete  the  variable  from  list  of  variables  assigned  to  the 
register. 

3.  If  the  deleted  variable  was  the  only  variable  assigned  to  the 

register,  then  go  to  1+.  ' 

Else,  RETURN. 

b.  Set  STATUS  entry  of  the  register  to  'FREE'  and  RETURN. 


Find_OP:  Procedure  (Variable) 

(returns  a register  number  or  -1,  and  sets  RDFLAG) 


1.  Search  list  of  variables  assigned  to  all  registers  for  the  given 
variable. 
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2.  If  the  variable  is  found,  then  go  to  3. 

Else,  go  to  U. 

3*  Set  RDFLAG  to  'NO'  and  RETURN  with  value  of  register  number 
which  the  variable  is  already  assigned  to. 

1* . Set  READFLAG  to  'YES'. 

5-  Search  register  table  for  a register  with  STATUS  entry  equal  to 
'FREE'. 

6.  If  the  search  is  successful,  then  RETURN  with  value  of  the  register 
number. 

Else,  RETURN  with  value  of  -1. 


Find_Res:  Procedure  (Variable) 

(returns  a register  number  or  -1  and  sets  READFLAG) 

1.  Set  READFLAG  to  'YES'. 

1.  Search  list  of  variables  assigned  to  all  registers  for  the  given 
variable. 

2.  If  the  variable  is  found,  then  go  to  3- 
Else,  go  to  U. 

3.  If  the  variable  is  the  only  variable  assigned  to  the  register  then 
set  the  CHANGE  ENTRY  OF  THE  VARIABLE  TO 'YES'  and  READFLAG  to  'NO', 
and  RETURN. 

Else,  delete  the  variable  from  list  of  variables  assigned  to  the 
register  and  go  to  h. 

U.  Search  register  table  for  a register  with  STATUS  entry  equal  to 
'FREE'. 

5 . If  the  search  is  successful  then  RETURN  with  value  of  the  register 
number. 

Else,  RETURN  with  value  of  -1. 


Write_Regs : Procedure 

(the  Procedure  goes  through  list  of  variables  assigned  to  all  registers, 
and  for  those  variables  whose  CHANGE  entry  is  'YES',  generates  a WT 
register  quad,  the  generated  register  quads  are 
WT  Reg  0 Var 

which  write  contents  of  Reg  in  memory  location  associated  to  Var) 
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7-5  (b)  R QUAD  GENERATORS 

The  generators  for  the  six  E QUAD  types  are  shown  below. 


l)  Functional  R QUADS 


ADD 

A 

B 

C 

SUB 

A 

B 

C 

GT 

A 

B 

C 

LT 

A 

B 

C 

EQ 

A 

B 

C 

1.  Reg  1 =Alloc_Regj3P(A) 

(Reg  1 is  register  number  which  variable  A is  assigned  to) 

2.  Reg  2=Alloc_RegjDP(B) 

(Reg  2 is  a register  number  which  variable  B is  assigned  tc) 


3.  Reg  3=Alloc_Reg_Res(C) 

(Reg  3 is  a register  number  which  variable  C is  assigned  to) 


1*.  Generate  a register  quad  accordingly 


(the 

register  quad 

will  be 

ADD 

Reg 

1 

Reg 

2 

Reg 

3 

SUB 

Reg 

1 

Reg 

2 

Reg 

3 

GT 

Reg 

1 

Reg 

2 

Reg 

3 

LT 

Reg 

1 

Reg 

2 

Reg 

3 

EQ 

Reg 

1 

Reg 

2 

Reg 

3) 

5.  Call  Dealloc_Temp(A,  Reg  l) 

Call  Dealloc__Temp(B,  Reg  2) 

(if  A or  B or  both  are  temporary  variables,  then  they  will  be 
deleted  from  list  variables  associated  to  their  registers) 


2)  Assign  R QUAD 
ASGN  A 0 B 

1.  Reg  l=Alloc_Reg_OP(A) ; 

(Reg  1 is  register  number  which  variable  A is  assigned  to) 

2.  Reg  2=Find_Res(B) 

(Reg  2 is  a register  number  which  variable  B or  address  of 
variable  B is  assigned  to) 

3.  If  ADDRESS  entry  of  Reg  2 is'YES',  then  generate  a WTAD  register 
quad,  and  go  to  ^ 

(generated  register  quad  is 
WTAD  Reg  1 0 Reg  2 

the  register  quad  writes  contents  of  Reg  1 into  location  given 
by  Reg  2) 

Else,  insert  variable  B into  list  of  variables  assigned  to  Reg  1,  set 
CHANGE  entry  of  variable  B to  'YES',  set  other  entries  accordingly, 
go  to  1*. 
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b.  Delete  variable  B from  list  of  variables  assigned  to  Reg  2. 

5.  Call  Dealloc_Temp(A,  Reg  1) 

(Dealloc_Temp  is  a routine  to  delete  variable  A from  Reg  2,  if 
A is  a temporary  variable) 

3)  Array  R QUADS 

SUBS  A I C 
SUBL  A I C 

1.  Reg  1=  Alloc_Reg_OP(A) 

(Reg  1 is  a register  number  to  which  address  of  first  word  of 
array  A is  assigned) 

2.  Reg  2=  Alloc_Reg_OP( I ) 

(Reg  2 is  a register  number  to  which  variable  I is  assigned) 

3.  Reg  3=  Ailoc_Reg_Res(C) 

(Reg  3 is  a register  number^fthich  variable  C is  assigned) 

it.  Generate  anASL  register  quad. 

(generated  register  quad  is 
ASL  Reg  2 0 Reg  3 

the  register  quad  sets  Reg  3 to  contents  of  Reg  2 shifted  to 
left  by  one  position) 

5.  Generate  an  ADD  register  quad. 

(generated  register  quad  is 
ADD  Reg  1 Reg  3 Reg  3 

the  register  quad  adds  contents  of  registers  Reg  1 and  Reg  3 
and  sets  Reg  3 to  the  result  of  addition,  after  the  addition 
Reg  3 contains  address  of  A(l)) 

6.  If  the  quad  under  process  is  SUBS,  then  go  to  7- 
Else,  go  to  8. 

(in  this  case  it  is  a SUBL  quad) 

7.  Generate  a RDAD  register  quad,  go  to  9- 

(generated  register  quad  is 
RDAD  Reg  3 0 Reg  3 

the  register  quad  sets  Reg  3 to  contents  of  location  given  by 
Reg  3.) 

8.  Set  AEDR3  entry  of  Reg  3 to  'YES'  , go  to  9. 

9.  Call  Dealloc_Temp(l , Reg  2) 

(if  I is  a temporary  variable,  then  it  will  be  deleted  from  list  of 
variables  assigned  to  Reg  2) 
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1»)  Branch  R QUADS 


BR  0 0 lab 

1.  Call  Write_Regs 

(see  explanation  on  routine  Write_Regs) 


2.  Generate  a BR  register  quad, 
(the  generated  register  is 
BR  0 0 lab) 


5)  Label  R QUAD 

LAB  lab  0 0 

1.  Call  Write_Regs. 

(see  explanation  on  routine  Write_Regs) 

2.  Delete  all  variables  assigned  to  all  registers. 

3.  Set  STATUS  entry  of  all  registers  to  'FREE'. 

U.  Generate  a LAB  register  quad. 

(generated  register  quad  is  the  following 
LAB  lab  0 0) 

6)  BT/BF  Quads 

BT  A 0 lab 
BF  A 0 lab 

Call  Write_Regs; 

(see  explanation  on  routine  Write_Regs) 

Reg  l£  Alloc_Reg_OP(A) 

(Reg  1 is  a register  number  which  variable  A is  assigned 
to. 

Generate  a register  quad  accordingly 

(the  register  quad  will  be  one  of  the  following 

BT  Reg  1 0 Lab 
BF  Reg  2 0 Lab) 

Call  Dealloc_Temp(A,  Reg  2) 

(if  A is  a temporary  variable  then  variable  A will  be 
deleted  from  list  of  variables  assigned  to  Reg  2) 
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